test: add regression test
This commit is contained in:
@@ -2,7 +2,7 @@
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use Test::More tests => 5;
|
use Test::More tests => 6;
|
||||||
use MarkdownParser;
|
use MarkdownParser;
|
||||||
|
|
||||||
my $parser = MarkdownParser->new();
|
my $parser = MarkdownParser->new();
|
||||||
@@ -32,4 +32,8 @@ is(
|
|||||||
"<pre><code>\n</code></pre>\n",
|
"<pre><code>\n</code></pre>\n",
|
||||||
"Empty code block"
|
"Empty code block"
|
||||||
);
|
);
|
||||||
|
is(
|
||||||
|
$parser->parse("```\nunterminated"),
|
||||||
|
"<pre><code>\nunterminated\n</code></pre>\n",
|
||||||
|
"Unclosed code block is closed at EOF"
|
||||||
|
);
|
||||||
|
|||||||
Reference in New Issue
Block a user