This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/regexp_unicode_prop.t: Avoid a TEST crash if failure
authorKarl Williamson <khw@cpan.org>
Mon, 6 Aug 2018 22:53:23 +0000 (16:53 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 20 Aug 2018 16:51:56 +0000 (10:51 -0600)
This changes the logic to not do a 'like' unless we know that the
operand is a valid pattern.

t/re/regexp_unicode_prop.t

index 711a0eb..2d5b36c 100644 (file)
@@ -218,14 +218,16 @@ sub match {
     undef $@;
     my $pat = "qr/$match/$caseless";
     my $match_pat = eval $pat;
-    is($@, '', "$pat compiled correctly to a regexp: $@");
-    like($str, $match_pat, "$name correctly matched");
+    if (is($@, '', "$pat compiled correctly to a regexp: $@")) {
+        like($str, $match_pat, "$name correctly matched");
+    }
 
     undef $@;
     $pat = "qr/$nomatch/$caseless";
     my $nomatch_pat = eval $pat;
-    is($@, '', "$pat compiled correctly to a regexp: $@");
-    unlike($str, $nomatch_pat, "$name correctly did not match");
+    if (is($@, '', "$pat compiled correctly to a regexp: $@")) {
+        unlike($str, $nomatch_pat, "$name correctly did not match");
+    }
 }
 
 sub run_tests {