This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parser.t: Move tests above ‘Add tests here’
authorFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 19:28:51 +0000 (12:28 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 5 Aug 2012 23:02:16 +0000 (16:02 -0700)
t/comp/parser.t

index 9ae7b75..ac6742e 100644 (file)
@@ -366,8 +366,6 @@ eval q{
 };
 is($@, "", "multiline whitespace inside substitute expression");
 
-# Add new tests HERE:
-
 eval '@A =~ s/a/b/; # compilation error
       sub tahi {}
       sub rua;
@@ -390,6 +388,8 @@ is $::{waru}, undef, 'sub w attr+proto ignored after compilation error';
 is $::{iwa}, undef, 'non-empty sub decl ignored after compilation error';
 is *BEGIN{CODE}, undef, 'BEGIN leaves no stub after compilation error';
 
+# Add new tests HERE (above this line)
+
 # bug #74022: Loop on characters in \p{OtherIDContinue}
 # This test hangs if it fails.
 eval chr 0x387;