Add intermediate newlines tests

[perl/modules/Regexp-Wildcards.git] / t / 20-jokers.t

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', '\\\\\\[\\]';