This is an automatically generated mail to inform you that tests are now available in t/spec/S02-literals/misc-interpolation.t
commit 4fcd5328be08a2bd3e55f8d21967e30342358c2e Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64> Date: Thu Aug 13 03:19:09 2009 +0000 [t/spec] Test for RT #65004 git-svn-id: http://svn.pugscode.org/p...@27975 c213334d-75ef-0310-aa23-eaa082d1ae64 diff --git a/t/spec/S02-literals/misc-interpolation.t b/t/spec/S02-literals/misc-interpolation.t index 7c7080e..3c9656c 100644 --- a/t/spec/S02-literals/misc-interpolation.t +++ b/t/spec/S02-literals/misc-interpolation.t @@ -10,7 +10,7 @@ These tests derived from comments in L<http://use.perl.org/~autrijus/journal/233 =end pod -plan 38; +plan 39; my $world = "World"; my $number = 1; @@ -85,6 +85,7 @@ is(" \c[111] \c[107] ", ' o k ', "\\c[] respects whitespaces around it"); # L<S02/Literals/separating the numbers with comma:> is("x \x[41,42,43] x", "x ABC x", "\\x[] allows multiple chars (1)"); is("x \x[41,42,00043] x", "x ABC x", "\\x[] allows multiple chars (2)"); +is("x \x[ 41, 42, 43 ] x", "x ABC x", "\\x[] allows multiple chars with white space"); is("x \c[65,66,67] x", "x ABC x", "\\c[] allows multiple chars (1)"); is("x \c[65,66,000067] x", "x ABC x", "\\c[] allows multiple chars (2)");