This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/regexp_unicode_prop.t: Reorder a few tests
authorKarl Williamson <khw@cpan.org>
Mon, 6 Aug 2018 22:57:20 +0000 (16:57 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 20 Aug 2018 16:51:56 +0000 (10:51 -0600)
This is based on knowledge of how the code works, to stress it a little
more.

t/re/regexp_unicode_prop.t

index 2d5b36c..3193e10 100644 (file)
@@ -296,15 +296,17 @@ sub run_tests {
         my $in_pat  = eval qq ['\\p{$class}'];
         my $out_pat = eval qq ['\\P{$class}'];
 
+        # Verify that adding /i does change the out set to match.
+        match $_, $in_pat,  $out_pat, 'i' for @out;
+
+        # Verify that adding /i doesn't change the in set.
+        match $_, $in_pat,  $out_pat, 'i' for @in;
+
         # Verify works as regularly for not /i
         match $_, $in_pat,  $out_pat for @in;
         match $_, $out_pat, $in_pat  for @out;
 
-        # Verify that adding /i doesn't change the in set.
-        match $_, $in_pat,  $out_pat, 'i' for @in;
 
-        # Verify that adding /i does change the out set to match.
-        match $_, $in_pat,  $out_pat, 'i' for @out;
     }
 }