Add tests for RT #76462

Raku · Oct 29, 2014 · bca6134 · bca6134
1 parent c7d9b73
commit bca6134
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S02-literals/autoref.t b/S02-literals/autoref.t
@@ -16,7 +16,7 @@ use Test;
 
 =end description
 
-plan 57;
+plan 59;
 
 # Implicit referentiation of arrays in assignment
 {
@@ -288,4 +288,14 @@ plan 57;
     is +$pair.key, 2, '({...} => "value") works';
 }
 
+# RT #76462
+{
+    lives_ok { my $a = (\my %h)<a> },
+        'no Null PMC access when hash indexing a hash ref';
+    my %h = ( 'a' => 1, 'b' => 2 );
+    my $h_ref = \%h;
+    lives_ok { my $b = $h_ref.{"a"} },
+        'no Null PMC access when trying to hash index a Capture';
+}
+
 # vim: ft=perl6