blob: 1f54c92674296d57595f9526f8b91f4ce877316f (
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{$_}.abspath eq $cmp.abspath } }, $a.keys), $msg, ); }
|