aadded test for RT #75694

Raku · Feb 23, 2011 · 2633e61 · 2633e61
1 parent 3e93462
commit 2633e61
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/S02-builtin_data_types/hash.t b/S02-builtin_data_types/hash.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 77;
+plan 78;
 
 # basic lvalue assignment
 # L<S09/Hashes>
@@ -263,9 +263,12 @@ lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
 {
     my %hash;
     %hash<foo> := 'bar';
-    is %hash<foo>, 'bar', 'binding hash values ok';
+    is %hash<foo>, 'bar', 'binding hash value works';
 }
 
+# RT #75694
+eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting with 'has-' in a hash");
+
 done;
 
 # vim: ft=perl6