Merge pull request #401 from dogbert17/test-rt-131887

Add test for RT #131887
Raku · Mar 13, 2018 · d7d42d6 · d7d42d6
2 parents 177ce4d + d6fcda9
commit d7d42d6
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S02-types/pair.t b/S02-types/pair.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 4 * 19 + 107;
+plan 4 * 19 + 108;
 
 # L<S02/Mutable types/A single key-to-value association>
 # basic Pair
@@ -464,4 +464,13 @@ subtest 'Pair.perl with type objects' => {
       Pair.new(Rat, Num), Pair.new(Bool, Bool), Pair.new(Numeric, Numeric)
 }
 
+# RT 131887
+{
+    my $value = 17;
+    my $pair = number => $value;
+    my $obj-at1 = $pair.WHICH;
+    $pair.freeze;
+    is-deeply $obj-at1, $pair.WHICH, "Pair.freeze doesn't change object identity";
+}
+
 # vim: ft=perl6