test for typed object unpacking in subsignatures

Raku · Oct 20, 2011 · 340ff7d · 340ff7d
1 parent 15664cb
commit 340ff7d
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S06-signature/unpack-object.t b/S06-signature/unpack-object.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 2;
+plan 4;
 
 {
     my $tracker = '';
@@ -19,3 +19,11 @@ plan 2;
     }
     is $tracker, '42', 'unpacking attribute of custom class';
 }
+
+{
+    multi f((Int :$value, *%)) { "Int $value" }
+    multi f((Str :$value, *%)) { "Str $value" }
+    is f('a' =>  3 ), 'Int 3', 'typed Pair unpackaing (Int)';
+    is f('a' => 'x'), 'Str x', 'typed Pair unpackaing (Str)';
+
+}