first maker test

1 files changed, 19 insertions, 0 deletions

diff --git a/t/lib/Test/WebCoso.pm b/t/lib/Test/WebCoso.pm
new file mode 100644
index 0000000..1f54c92
--- /dev/null
+++ b/t/lib/Test/WebCoso.pm
@@ -0,0 +1,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{$_}.abspath eq $cmp.abspath
+                }
+            }, $a.keys),
+        $msg,
+    );
+}