Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] A test for c[] also

git-svn-id: http://svn.pugscode.org/pugs@27976 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 04185be2c545a79aef9e9910d18a736ce0d90838 1 parent faa6d5a
kyle authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  S02-literals/misc-interpolation.t
View
3  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 39;
+plan 40;
my $world = "World";
my $number = 1;
@@ -88,6 +88,7 @@ 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)");
+is("x \c[ 65, 66, 67 ] x", "x ABC x", "\\c[] allows multiple chars with white space");
is("x \x[41,42,43]] x", "x ABC] x", "\\x[] should not eat following ]s");
is("x \c[65,66,67]] x", "x ABC] x", "\\c[] should not eat following ]s");
Please sign in to comment.
Something went wrong with that request. Please try again.