$text =~ s{ ^\* (?=\S) (.+?) (?<=\S) \* }{<em>$1</em>}gsx;
# <strong> must go first:
- $text =~ s{ ( (?<=\W) __ (?=\S) (.+?[*_]*) (?<=\S) __ (?!\S) ) }
+ $text =~ s{ ( (?<=\s) __ (?=\S) (.+?[*_]*) (?<=\S) __ (?!\S) ) }
{
my $result = _has_multiple_underscores($2) ? $1 : "<strong>$2</strong>";
$result;
}gsxe;
- $text =~ s{ (?<=\W) \*\* (?=\S) (.+?[*_]*) (?<=\S) \*\* }{<strong>$1</strong>}gsx;
+ $text =~ s{ (?<=\s) \*\* (?=\S) (.+?[*_]*) (?<=\S) \*\* }{<strong>$1</strong>}gsx;
- $text =~ s{ ( (?<=\W) _ (?=\S) (.+?) (?<=\S) _ (?!\S) ) }
+ $text =~ s{ ( (?<=\s) _ (?=\S) (.+?) (?<=\S) _ (?!\S) ) }
{
my $result = _has_multiple_underscores($2) ? $1 : "<em>$2</em>";
$result;
}gsxe;
- $text =~ s{ (?<=\W) \* (?=\S) (.+?) (?<=\S) \* }{<em>$1</em>}gsx;
+ $text =~ s{ (?<=\s) \* (?=\S) (.+?) (?<=\S) \* }{<em>$1</em>}gsx;
# And now, a second pass to catch nested strong and emphasis special cases
- $text =~ s{ ( (?<=\W) __ (?=\S) (.+?[*_]*) (?<=\S) __ (\S*) ) }
+ $text =~ s{ ( (?<=\s) __ (?=\S) (.+?[*_]*) (?<=\S) __ (\S*) ) }
{
my $result = _has_multiple_underscores($3) ? $1 : "<strong>$2</strong>$3";
$result;
}gsxe;
- $text =~ s{ (?<=\W) \*\* (?=\S) (.+?[*_]*) (?<=\S) \*\* }{<strong>$1</strong>}gsx;
- $text =~ s{ ( (?<=\W) _ (?=\S) (.+?) (?<=\S) _ (\S*) ) }
+ $text =~ s{ (?<=\s) \*\* (?=\S) (.+?[*_]*) (?<=\S) \*\* }{<strong>$1</strong>}gsx;
+ $text =~ s{ ( (?<=\s) _ (?=\S) (.+?) (?<=\S) _ (\S*) ) }
{
my $result = _has_multiple_underscores($3) ? $1 : "<em>$2</em>$3";
$result;
}gsxe;
- $text =~ s{ (?<=\W) \* (?=\S) (.+?) (?<=\S) \* }{<em>$1</em>}gsx;
+ $text =~ s{ (?<=\s) \* (?=\S) (.+?) (?<=\S) \* }{<em>$1</em>}gsx;
return $text;
}
use warnings;
use lib qw(. lib local/lib/perl5 t);
-use Test2::Bundle::Extended;
+use Test2::Tools::Mock;
+use Test::More;
use Bugzilla::Util;
BEGIN {
my $terms = {
use Bugzilla::Comment;
use Bugzilla::User;
use Bugzilla::Markdown;
+use Bugzilla::Util;
+use File::Basename;
Bugzilla->usage_mode(USAGE_MODE_TEST);
Bugzilla->error_mode(ERROR_MODE_DIE);
Bugzilla->set_user($user);
-my $markdown_text = <<MARKDOWN;
-```
-this is a block
-> with an embedded blockquote
-```
-MARKDOWN
+my @testfiles = glob("t/markdown/*.md");
-my $markdown = Bugzilla::Markdown->new();
+plan(tests => scalar(@testfiles) + 1);
+my $markdown = Bugzilla::Markdown->new();
ok($markdown, "got a new markdown object");
-my $markdown_html = $markdown->markdown($markdown_text, $bug, $comment);
-is("<pre><code>this is a block\n"
- . "> with an embedded blockquote</code></pre>\n",
- $markdown_html, "code block with embedded block quote");
-done_testing;
+foreach my $testfile (@testfiles) {
+ my $data = read_text($testfile);
+
+ my ($markdown_text, $expected_html) = split(/---/, $data);
+ $markdown_text = trim($markdown_text);
+ $expected_html = trim($expected_html);
+
+ my $actual_html = $markdown->markdown($markdown_text, $bug, $comment);
+ $actual_html = trim($actual_html);
+
+ is($actual_html, $expected_html, basename($testfile));
+}
+
+done_testing();
--- /dev/null
+```
+this is a block
+> with an embedded blockquote
+```
+
+---
+
+<pre><code>this is a block
+> with an embedded blockquote</code></pre>
--- /dev/null
+<lib>_foo_bar.c
+<lib>_foo_bar_baz.c
+<prefix>_bar.c and <prefix>_bif.c
+hello_bar.c and there_bif.c
+
+var this__is_a_variable__ = "";
+
+__this is not__
+
+---
+
+<p><lib>_foo_bar.c<br>
+<lib>_foo_bar_baz.c<br>
+<prefix>_bar.c and <prefix>_bif.c<br>
+hello_bar.c and there_bif.c</p>
+
+<p>var this__is_a_variable__ = "";</p>
+
+<p><strong>this is not</strong></p>