69 lines
1.7 KiB
Perl
Executable File
69 lines
1.7 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 13;
|
|
use MarkdownParser;
|
|
|
|
my $parser = MarkdownParser->new();
|
|
|
|
is(
|
|
$parser->parse("**bold text**"),
|
|
"<p><strong>bold text</strong></p>\n",
|
|
"Bold with **"
|
|
);
|
|
is(
|
|
$parser->parse("__bold text__"),
|
|
"<p><strong>bold text</strong></p>\n",
|
|
"Bold with __"
|
|
);
|
|
is(
|
|
$parser->parse("*italic text*"),
|
|
"<p><em>italic text</em></p>\n",
|
|
"Italic with *"
|
|
);
|
|
is(
|
|
$parser->parse("_italic text_"),
|
|
"<p><em>italic text</em></p>\n",
|
|
"Italic with _"
|
|
);
|
|
is(
|
|
$parser->parse("**bold** and *italic*"),
|
|
"<p><strong>bold</strong> and <em>italic</em></p>\n",
|
|
"Bold and italic together"
|
|
);
|
|
is(
|
|
$parser->parse("Text with **bold** in middle"),
|
|
"<p>Text with <strong>bold</strong> in middle</p>\n",
|
|
"Bold in middle of text"
|
|
);
|
|
is(
|
|
$parser->parse("Text with *italic* in middle"),
|
|
"<p>Text with <em>italic</em> in middle</p>\n",
|
|
"Italic in middle of text"
|
|
);
|
|
is(
|
|
$parser->parse("**bold** *italic* **bold again**"),
|
|
"<p><strong>bold</strong> <em>italic</em> <strong>bold again</strong></p>\n",
|
|
"Multiple formatting"
|
|
);
|
|
is(
|
|
$parser->parse("***bold text***"),
|
|
"<p><strong>bold text</strong></p>\n",
|
|
"Bold with ***"
|
|
);
|
|
is(
|
|
$parser->parse("**bold *italic* bold**"),
|
|
"<p><strong>bold <em>italic</em> bold</strong></p>\n",
|
|
"Nested formatting"
|
|
);
|
|
is(
|
|
$parser->parse("___bold text___"),
|
|
"<p><strong>bold text</strong></p>\n",
|
|
"Bold with ___"
|
|
);
|
|
is( $parser->parse("my_variable"),
|
|
"<p>my_variable</p>\n", "Underscore inside word unchanged" );
|
|
is( $parser->parse("CONST__VALUE"),
|
|
"<p>CONST__VALUE</p>\n", "Double underscores inside word unchanged" );
|