Tests for Parcel (todo)

sorear · Jul 20, 2010 · 50423d2 · 50423d2
1 parent bfb226a
commit 50423d2
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/test.pl b/test.pl
@@ -10,7 +10,7 @@ ($num)
     say ("1.." ~ $num);
 }
 
-plan 93;
+plan 94;
 
 ok 1, "one is true";
 ok 2, "two is also true";
@@ -291,3 +291,14 @@ ($num)
     ok "Hello".substr(1,3) eq "ell", "substr works";
     ok "Hello".chars == 5, ".chars works";
 }
+
+{
+    my $buf = '';
+    sub cat(*@x) {
+        while @x {
+            $buf = $buf ~ @x.shift;
+        }
+        $buf;
+    }
+    ok cat(1, (2, 3), ((4, 5), (Nil, 7))) eq "123457", "parcels flatten";
+}