t/lib/Test/WebCoso.pm


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