diff options
Diffstat (limited to 't/lib/Test/WebCoso.pm')
-rw-r--r-- | t/lib/Test/WebCoso.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/lib/Test/WebCoso.pm b/t/lib/Test/WebCoso.pm new file mode 100644 index 0000000..1f54c92 --- /dev/null +++ b/t/lib/Test/WebCoso.pm @@ -0,0 +1,19 @@ +# -*- mode: perl6 -*- +unit module Test::WebCoso; +use Test; + +sub cmp-files($a,$b,$msg) is export { + ok( + ($a.defined and $b.defined and $a.keys eqv $b.keys and + [and] map { + my $cmp = $b{$_}; + if $cmp ~~ Callable { + $cmp.($a{$_}) + } + else { + $a{$_}.abspath eq $cmp.abspath + } + }, $a.keys), + $msg, + ); +} |