diff options
Diffstat (limited to 't')
-rw-r--r-- | t/comp/interpolate.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/comp/interpolate.t b/t/comp/interpolate.t new file mode 100644 index 0000000000..3472d97cf1 --- /dev/null +++ b/t/comp/interpolate.t @@ -0,0 +1,15 @@ +BEGIN { + require "test.pl" +} + +use strict; +use warnings; + +plan 2; + +{ + my %foo = (aap => "monkey"); + my $foo = ''; + is("@{[$foo{'aap'}]}", 'monkey', 'interpolation of hash lookup with space between lexical variable and subscript'); + is("@{[$foo {'aap'}]}", 'monkey', 'interpolation of hash lookup with space between lexical variable and subscript'); +} |