fix for GLR 4 tests more tests from 99probs

Raku · Sep 14, 2015 · 18afa95 · 18afa95
1 parent 6237584
commit 18afa95
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/categories/99-problems/P09-topo.pl b/categories/99-problems/P09-topo.pl
@@ -29,6 +29,6 @@ =head1 Example
     }
 }
 
-say pack-consecutive-dups(<a a a a a b b c b d e e>.list).perl;
+say pack-consecutive-dups([<a a a a a b b c b d e e>]).list.perl;
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/categories/99-problems/P12-topo.pl b/categories/99-problems/P12-topo.pl
@@ -17,10 +17,10 @@ (@list)
 {
     gather for @list -> $e
     {
-        $e !~~ Array ?? take($e) !! take($e[1] xx $e[0])
+        $e !~~ Array ?? take($e) !! take(($e[1] xx $e[0]).list)
     }
 }
 
-say decode(([5, "a"], [2, "b"], "c", "b", "d", [2, "e"]).list).perl;
+say decode(([5, "a"], [2, "b"], "c", "b", "d", [2, "e"]).list).flat.list.perl;
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/t/categories/99-problems.t b/t/categories/99-problems.t
@@ -239,8 +239,8 @@ sub expected-output {
     END
 
     %expected-output{"P17-unobe.pl"} = q:to/END/;
-    ["a", "b", "c", "d", "e", "f", "g", "h", "i", "k"]<>
-    (["a", "b", "c"], ["d", "e", "f", "g", "h", "i", "k"])
+    ["a", "b", "c", "d", "e", "f", "g", "h", "i", "k"]
+    ($["a", "b", "c"], $["d", "e", "f", "g", "h", "i", "k"])
     END
 
     %expected-output{"P18-topo.pl"} = q:to/END/;

diff --git a/t/categories/cookbook/03dates-and-times.t b/t/categories/cookbook/03dates-and-times.t
@@ -79,7 +79,7 @@ subtest {
 
     my $output = run-example($example-name);
     my $diff = abs($expected-output - $output.chomp);
-    ok($diff < 1e-2, $example-name);
+    ok($diff < 1e-1, $example-name) or die dd $diff;
 }, "03-09-hires-times.pl";
 
 #| run the given example script