This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/script_run.t: White-space only
authorKarl Williamson <khw@cpan.org>
Sun, 30 Sep 2018 16:41:04 +0000 (10:41 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 30 Sep 2018 16:46:33 +0000 (10:46 -0600)
t/re/script_run.t

index f8809e3..035a910 100644 (file)
@@ -92,10 +92,12 @@ foreach my $type ('script_run', 'sr', 'atomic_script_run', 'asr') {
 }
 
     # Until fixed, this was skipping the '['
-    unlike("abc]c", qr/^ (*sr:a(*sr:[bc]*)c) $/x, "Doesn't skip parts of exact matches");
+    unlike("abc]c", qr/^ (*sr:a(*sr:[bc]*)c) $/x,
+           "Doesn't skip parts of exact matches");
 
-      like("abc", qr/(*asr:a[bc]*c)/, "Outer asr works on a run");
-    unlike("abc", qr/(*asr:a(*asr:[bc]*)c)/, "Nested asr works to exclude some things");
+    like("abc", qr/(*asr:a[bc]*c)/, "Outer asr works on a run");
+    unlike("abc", qr/(*asr:a(*asr:[bc]*)c)/,
+           "Nested asr works to exclude some things");
 
     like("\x{0980}12\x{0993}", qr/^(*sr:.{4})/,
          "Script with own zero works with ASCII digits"); # perl #133547