From 15b9010ec7791dee67d03a1775b72d6e6d84c10d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 5 Sep 2015 15:50:19 +0100
Subject: test passes

---
 t/tests/webcoso.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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'),
-- 
cgit v1.2.3