Permalink
Browse files

RT #78496, Pair.Capture

  • Loading branch information...
1 parent 439f6e0 commit 20b8292671f84f7bbe8eab56247beb26fcce98b6 @moritz moritz committed Oct 3, 2011
Showing with 8 additions and 1 deletion.
  1. +8 −1 S02-types/capture.t
View
9 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

0 comments on commit 20b8292

Please sign in to comment.