41 lines
1.0 KiB
Perl
Executable File
41 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 6;
|
|
use MarkdownParser;
|
|
|
|
my $parser = MarkdownParser->new();
|
|
|
|
is(
|
|
$parser->parse("- Item 1\n- Item 2\n- Item 3"),
|
|
"<ul>\n<li>Item 1</li>\n<li>Item 2</li>\n<li>Item 3</li>\n</ul>\n",
|
|
"Unordered list with -"
|
|
);
|
|
is(
|
|
$parser->parse("* Item 1\n* Item 2"),
|
|
"<ul>\n<li>Item 1</li>\n<li>Item 2</li>\n</ul>\n",
|
|
"Unordered list with *"
|
|
);
|
|
is(
|
|
$parser->parse("+ Item 1\n+ Item 2"),
|
|
"<ul>\n<li>Item 1</li>\n<li>Item 2</li>\n</ul>\n",
|
|
"Unordered list with +"
|
|
);
|
|
is(
|
|
$parser->parse("1. First item\n2. Second item\n3. Third item"),
|
|
"<ol>\n<li>First item</li>\n<li>Second item</li>\n<li>Third item</li>\n</ol>\n",
|
|
"Ordered list"
|
|
);
|
|
is(
|
|
$parser->parse("- Item 1\n\n- Item 2"),
|
|
"<ul>\n<li>Item 1</li>\n</ul>\n<ul>\n<li>Item 2</li>\n</ul>\n",
|
|
"Multiple list blocks"
|
|
);
|
|
is(
|
|
$parser->parse("- **Bold item**\n- *Italic item*"),
|
|
"<ul>\n<li><strong>Bold item</strong></li>\n<li><em>Italic item</em></li>\n</ul>\n",
|
|
"List items with formatting"
|
|
);
|
|
|