blob: 566e4bc9fc8811fea145837cd7cd9886736ee488 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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{$_}.path.IO.abspath eq $cmp.IO.abspath } }, $a.keys), $msg, ); }
|