1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
use strict;
use warnings;
use FindBin qw($Bin);
use File::Slurp qw(slurp);
use Test::More tests => 2;
use Test::Exception;
unshift(@ARGV, "$Bin/Markdown-from-MDTest1.1.mdtest/Markdown_Documentation_-_Syntax.text");
my $expected = slurp("$Bin/Markdown-from-MDTest1.1.mdtest//Markdown_Documentation_-_Syntax.xhtml");
lives_ok {
require "$Bin/../script/Markdown.pl";
} 'require Markdown.pl works';
my $out = main();
is($out, $expected, 'Markdown.pl does the right thing with the syntax guide');
|
