Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
test for RT #120517, Str.words.gist
  • Loading branch information
FROGGS committed Nov 12, 2013
1 parent 3c83e50 commit 9010356
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion S32-str/words.t
Expand Up @@ -2,7 +2,7 @@ use v6;

use Test;

plan 12;
plan 13;

# L<S32::Str/Str/=item words>

Expand Down Expand Up @@ -31,5 +31,11 @@ is( "a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc d".words,
is @list.join('|'), 'split|this|string', 'Str.words';
}

# RT #120517
#?niecza todo 'extra .list on the lhs'
{
my $RT120517 = "FOO";
is qq:ww/$RT120517 "BAR BAZ"/.perl, qq:ww/FOO "BAR BAZ"/.perl, "interpolated variable .perl's like a literal"
}

# vim: ft=perl6

0 comments on commit 9010356

Please sign in to comment.