RT #112116, constant, hashes and map

Raku · Jun 27, 2012 · c8b1ef4 · c8b1ef4
1 parent 5d689e8
commit c8b1ef4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/S04-declarations/constant.t b/S04-declarations/constant.t
@@ -298,6 +298,12 @@ use Test;
     is fib[100], 354224848179261915075, 'can have a constant using a sequence and index it';
 }
 
+# RT #112116
+{
+    constant %escapes = (^128).map({; chr($_) => sprintf '%%%02X', $_ }).hash;
+    is %escapes<e>, '%65', 'constant hashes constructed by map';
+}
+
 done;
 
 # vim: ft=perl6