14 lines
334 B
Perl
Executable File
14 lines
334 B
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 3;
|
|
use MarkdownParser;
|
|
|
|
my $parser = MarkdownParser->new();
|
|
|
|
is( $parser->parse("---"), "<hr>\n", "Horizontal rule with ---" );
|
|
is( $parser->parse("***"), "<hr>\n", "Horizontal rule with ***" );
|
|
is( $parser->parse("___"), "<hr>\n", "Horizontal rule with ___" );
|
|
|