Kharec/m2h
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Kharec:11af6d05112859fb242b9697111d5ab2d6641913
Branches Tags
Kharec:main
...
compare: Kharec:f6d87eb87872c31c3e54df0fd8b5b1337776fb47
Branches Tags
Kharec:main

2 Commits
11af6d0511 ... f6d87eb878

Author SHA1 Message Date
Kharec
f6d87eb878 test: add regression test 2026-02-19 17:53:25 +01:00
Kharec
b2969d8f47 fix(parser): close fenced code blocks at EOF 2026-02-19 17:53:14 +01:00
2 changed files with 7 additions and 3 deletions
Expand all files Collapse all files

2
lib/MarkdownParser.pm
View File

@@ -10,6 +10,7 @@ my %CLOSING_TAGS = (
olist => "</ol>", olist => "</ol>",
blockquote => "</blockquote>", blockquote => "</blockquote>",
table => "</table>", table => "</table>",
code_block => "</code></pre>",
); );
sub new { sub new {
@@ -166,7 +167,6 @@ sub handle_code_block_line {
my ( $self, $line ) = @_; my ( $self, $line ) = @_;
if ( $line =~ /^```/ ) { if ( $line =~ /^```/ ) {
$self->{output} .= "</code></pre>\n";
$self->transition_to_state('paragraph'); $self->transition_to_state('paragraph');
} }
else { else {

8
t/06-code.t
View File

@@ -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"
);