RT #78496, Pair.Capture

Raku · Oct 3, 2011 · 20b8292 · 20b8292
1 parent 439f6e0
commit 20b8292
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S02-types/capture.t b/S02-types/capture.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 18;
+plan 20;
 
 {
     my $capture = \(1,2,3);
@@ -111,4 +111,11 @@ plan 18;
         "mixing ordinary args with captures (2)";
 }
 
+{
+    # RT #78496
+    my $c = ('OH' => 'HAI').Capture;
+    is $c<key>,   'OH',  '.<key> of Pair.Capture';
+    is $c<value>, 'HAI', '.<value> of Pair.Capture';
+}
+
 # vim: ft=perl6