diff --git a/S02-literals/hash-interpolation.t b/S02-literals/hash-interpolation.t index ab2f72f532..09a106f2c2 100644 --- a/S02-literals/hash-interpolation.t +++ b/S02-literals/hash-interpolation.t @@ -4,14 +4,12 @@ use Test; plan 10; -#?rakudo todo 'Hash interpolation with %hash' { my %hash = (a => 1, b => 2); is "%hash", 1, '"%hash" works'; is "<%hash>", '<1>', '"<%hash>" works'; } -#?rakudo todo 'interpolation with subscripts' { my $hash = { a => 1, b => 2 }; is "$hash", 1, '"$hash" works'; @@ -21,13 +19,12 @@ plan 10; { # L my %hash = { a=> 1, b => 2 }; - #?rakudo 2 todo 'hash (ref) interpolation' + #?rakudo 2 skip 'zen hash slice' is "%hash{}", "a\t1\nb\t2\n", 'interpolation with curly braces'; is "%hash<>", "a\t1\nb\t2\n", 'interpolation with angle brackets'; is "%hash", '%hash', 'no interpolation'; } -#?rakudo todo 'Hash interpolation' { # "%hash{a}" actually calls a(). Test that. my %hash = (a => 1, b => 2); @@ -36,8 +33,8 @@ plan 10; } 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'; + is "%hash{'b'}", "2", 'can quote hash indexes in interpolations 1'; + is "%hash{"b"}", "2", 'can quote hash indexes in interpolations 2'; } # vim: ft=perl6