# -*- 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,
    );
}