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)");
 

Reply via email to