This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re-order the tests to match the comment
authorTony Cook <tony@develop-help.com>
Sat, 18 Dec 2010 00:05:39 +0000 (11:05 +1100)
committerTony Cook <tony@develop-help.com>
Sat, 18 Dec 2010 00:05:39 +0000 (11:05 +1100)
Win32 has been failing in re/re.t, maybe this will fix it.

t/re/re.t

index f6da280..1cf6853 100644 (file)
--- a/t/re/re.t
+++ b/t/re/re.t
@@ -54,19 +54,6 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
     is(regnames_count(),3);
 }
 
-    { # Keep these tests last, as whole script will be interrupted if times out
-        # Bug #72998; this can loop 
-        watchdog(2);
-        eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
-        pass("Didn't loop");
-
-        # Bug #78058; this can loop
-        watchdog(2);
-        no warnings;    # Because the 8 may be warned on
-        eval 'qr/\18/';
-        pass("qr/\18/ didn't loop");
-    }
-
 {
     # tests for new regexp flags
     my $text = "\xE4";
@@ -109,6 +96,20 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
     }
 }
 
+
+    { # Keep these tests last, as whole script will be interrupted if times out
+        # Bug #72998; this can loop 
+        watchdog(2);
+        eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
+        pass("Didn't loop");
+
+        # Bug #78058; this can loop
+        watchdog(2);
+        no warnings;    # Because the 8 may be warned on
+        eval 'qr/\18/';
+        pass("qr/\18/ didn't loop");
+    }
+
 # New tests above this line, don't forget to update the test count below!
 BEGIN { plan tests => 28 }
 # No tests here!