Add intermediate newlines tests

diff --git a/t/20-jokers.t b/t/20-jokers.t
index 61b1ad6385319c854ba0075d81c4734e97f0f126..3b21478a389e737ad3fbc856635d0378c6d1e403 100644 (file)
--- a/t/20-jokers.t
+++ b/t/20-jokers.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2 * (4 + 2 + 7 + 9 + 2) * 3;
+use Test::More tests => 2 * (4 + 2 + 7 + 8 + 6 + 2) * 3;
 
 use Regexp::Wildcards;
 
@@ -78,14 +78,20 @@ sub alltests {
  # Escaping
 
  try $rw, "escaping $any", '\\'.$any;
+ try $rw, "escaping $any before intermediate newline", '\\'.$any ."\n\\".$any;
  try $rw, "escaping $one", '\\'.$one;
+ try $rw, "escaping $one before intermediate newline", '\\'.$one ."\n\\".$one;
  try $rw, "escaping \\\\\\$any", '\\\\\\'.$any;
  try $rw, "escaping \\\\\\$one", '\\\\\\'.$one;
-
  try $rw, "not escaping \\\\$any", '\\\\'.$any, '\\\\.*';
  try $rw, "not escaping \\\\$one", '\\\\'.$one, '\\\\.';
 
+ # Escaping escapes
+
  try $rw, 'escaping \\', '\\', '\\\\';
+ try $rw, 'not escaping \\', '\\\\', '\\\\';
+ try $rw, 'escaping \\ before intermediate newline', "\\\n\\", "\\\\\n\\\\";
+ try $rw, 'not escaping \\ before intermediate newline', "\\\\\n\\\\", "\\\\\n\\\\";
  try $rw, 'escaping regex characters', '[]', '\\[\\]';
  try $rw, 'not escaping escaped regex characters', '\\\\\\[\\]';
 

diff --git a/t/21-commas.t b/t/21-commas.t
index 1cdd0d0c59214c108c804193b79e6436d6d66ddb..2e07443d642f07abbba68c79ebccf9f158eaa24d 100644 (file)
--- a/t/21-commas.t
+++ b/t/21-commas.t
@@ -13,7 +13,7 @@ is($rw->convert('a,b,c'), 'a\\,b\\,c', 'unix: commas outside of brackets 1');
 is($rw->convert('a\\,b\\\\\\,c'), 'a\\,b\\\\\\,c',
    'unix: commas outside of brackets 2');
 is($rw->convert(',a,b,c\\\\,'), '\\,a\\,b\\,c\\\\\\,',
-   'unix: commas outside of brackets at begin/ed');
+   'unix: commas outside of brackets at begin/end');
 
 $rw = Regexp::Wildcards->new(type => 'commas');