diff options
| author | dakkar <dakkar@thenautilus.net> | 2015-09-05 15:50:19 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2015-09-05 15:50:19 +0100 |
| commit | 15b9010ec7791dee67d03a1775b72d6e6d84c10d (patch) | |
| tree | e7dd62683919835536ced68b0e83f1ee98035e3d | |
| parent | use File::Temp (diff) | |
| download | WebCoso-p6-15b9010ec7791dee67d03a1775b72d6e6d84c10d.tar.gz WebCoso-p6-15b9010ec7791dee67d03a1775b72d6e6d84c10d.tar.bz2 WebCoso-p6-15b9010ec7791dee67d03a1775b72d6e6d84c10d.zip | |
test passes
| -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'), |