diff options
Diffstat (limited to 't/lib/Test/WebCoso.pm')
-rw-r--r-- | t/lib/Test/WebCoso.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/t/lib/Test/WebCoso.pm b/t/lib/Test/WebCoso.pm index 566e4bc..c179e47 100644 --- a/t/lib/Test/WebCoso.pm +++ b/t/lib/Test/WebCoso.pm @@ -1,19 +1,20 @@ # -*- mode: perl6 -*- unit module Test::WebCoso; use Test; +use WebCoso::FileSet; -sub cmp-files($a,$b,$msg) is export { +sub cmp-files(WebCoso::FileSet $a,$b,$msg) is export { ok( - ($a.defined and $b.defined and $a.keys eqv $b.keys and + ($a.defined and $b.defined and $a.langs eqv $b.keys and [and] map { my $cmp = $b{$_}; if $cmp ~~ Callable { - $cmp.($a{$_}) + $cmp.($a.for-lang($_)) } else { - $a{$_}.path.IO.abspath eq $cmp.IO.abspath + $a.for-lang($_).path.IO.abspath eq $cmp.IO.abspath } - }, $a.keys), + }, $a.langs), $msg, ); } |