summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/tests/page.t34
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;