diff options
Diffstat (limited to 't/tests/page.t')
-rw-r--r-- | t/tests/page.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/t/tests/page.t b/t/tests/page.t new file mode 100644 index 0000000..e42e738 --- /dev/null +++ b/t/tests/page.t @@ -0,0 +1,34 @@ +# -*- mode: perl6 -*- +use Test; +use lib 't/lib'; +use Test::WebCoso; +use File::Temp; +use WebCoso; + +my $testdir = tempdir.IO; +my $srcdir = $testdir.child('src'); +my $destdir = $testdir.child('dst'); + +$srcdir.mkdir; +$destdir.mkdir; + +$srcdir.child('document.it.tt').spurt('it'); +$srcdir.child('document.en.rest.txt').spurt('en'); + +my $wc = WebCoso.new(:$srcdir,:$destdir); +$wc.new-page(Nil); +$wc.run(); + +my %output = $wc.get-files(Nil,'document','html'); +dd %output; + +cmp-files( + %output, + { + it => { $^x.slurp eq 'it expanded parsed converted decorated' }, + en => { $^x.slurp eq 'en parsed converted decorated' }, + }, + 'built everyting', +); + +done-testing; |