filesets! don't work

I think I'm trying to be too clever, merging "these files make up a
document, a file per language" with "these files are needed to build a
result file in a certain language". Those should probably be separate
classes.

1 files changed, 6 insertions, 5 deletions

diff --git a/t/lib/Test/WebCoso.pm b/t/lib/Test/WebCoso.pm
index 566e4bc..c179e47 100644
--- a/t/lib/Test/WebCoso.pm
+++ b/t/lib/Test/WebCoso.pm
@@ -1,19 +1,20 @@
 # -*- mode: perl6 -*-
 unit module Test::WebCoso;
 use Test;
+use WebCoso::FileSet;
 
-sub cmp-files($a,$b,$msg) is export {
+sub cmp-files(WebCoso::FileSet $a,$b,$msg) is export {
     ok(
-        ($a.defined and $b.defined and $a.keys eqv $b.keys and
+        ($a.defined and $b.defined and $a.langs eqv $b.keys and
          [and] map {
                 my $cmp = $b{$_};
                 if $cmp ~~ Callable {
-                    $cmp.($a{$_})
+                    $cmp.($a.for-lang($_))
                 }
                 else {
-                    $a{$_}.path.IO.abspath eq $cmp.IO.abspath
+                    $a.for-lang($_).path.IO.abspath eq $cmp.IO.abspath
                 }
-            }, $a.keys),
+            }, $a.langs),
         $msg,
     );
 }