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');
$srcdir.child('du2xhtml.xsl').spurt('<>');
my $wc = WebCoso.new(:$srcdir,:$destdir);
$wc.new-page('');
$wc.run();
my %output = $wc.get-files('','document','html');
dd %output;
cmp-files(
%output,
{
it => { $^x.contents eq 'it expanded parsed converted (<>) decorated' },
en => { $^x.contents eq 'en parsed converted (<>) decorated' },
},
'built everyting',
);
$wc.get-file('','du2xhtml.xsl').contents('<new>');
%output = $wc.get-files('','document','html');
dd %output;
dd %output<it>.contents;
dd %output<en>.contents;
cmp-files(
%output,
{
it => { $^x.contents eq 'it expanded parsed converted (<new>) decorated' },
en => { $^x.contents eq 'en parsed converted (<new>) decorated' },
},
're-built everyting',
);
done-testing;