Changeset 22037

Timestamp:

08/26/08 18:44:17 (3 months ago)

Author:

moritz

Message:

[t/spec] more tests for hash interpolation

Files:

• t/spec/S02-literals/hash-interpolation.t (modified) (2 diffs)

t/spec/S02-literals/hash-interpolation.t

@@ -3 +3 @@
 use Test;
 
-plan 7;
+plan 10;
 
 #?rakudo todo 'Hash interpolation with %hash<literal>'
@@ -27 +27 @@
   is "%hash", '%hash', 'no interpolation';
 }
+
+#?rakudo skip 'Hash interpolation'
+{
+    # "%hash{a}" actually calls a(). Test that.
+    my %hash = (a => 1, b => 2);
+    sub do_a {
+        'b';
+    }
+    is "%hash{do_a}", "2",  '%hash{do_a} calls do_a()';
+
+    is "%hash{'b'}",  "b",  'can quote hash indexes in interpolations 1';
+    is "%hash{"b"}",  "b",  'can quote hash indexes in interpolations 2';
+}