diff options
Diffstat (limited to 't/tests')
| -rw-r--r-- | t/tests/webcoso.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/tests/webcoso.t b/t/tests/webcoso.t index b838cc7..a68d6d2 100644 --- a/t/tests/webcoso.t +++ b/t/tests/webcoso.t @@ -3,6 +3,14 @@ use Test; use File::Temp; use WebCoso; +sub cmp-files($a,$b,$msg) { + ok( + ($a.defined and $b.defined and $a.keys eqv $b.keys and + [and] map { $a{$_}.abspath eq $b{$_}.abspath }, $a.keys), + $msg, + ); +} + my $testdir = tempdir.IO; my $srcdir = $testdir.child('src'); my $destdir = $testdir.child('dst'); @@ -19,7 +27,7 @@ my $wc = WebCoso.new(:$srcdir,:$destdir); my %one = $wc.get-files('one','document','txt'); -is-deeply( +cmp-files( %one, { it => $one.child('document.it.txt'), |