parser.t: Move a test above ‘Add new tests here’

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 44fc982..d05e92e 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -433,6 +433,16 @@ print "ok ", ++$test, " - unterminated here-docs in s/// in string eval\n";
 sub 'Hello'_he_said (_);
 is prototype "Hello::_he_said", '_', 'initial tick in sub declaration';
 
+{
+    my @x = 'string';
+    is(eval q{ "$x[0]->strung" }, 'string->strung',
+       'literal -> after an array subscript within ""');
+    @x = ['string'];
+    # this used to give "string"
+    like("$x[0]-> [0]", qr/^ARRAY\([^)]*\)-> \[0]\z/,
+       'literal -> [0] after an array subscript within ""');
+}
+
 # Add new tests HERE (above this line)
 
 # bug #74022: Loop on characters in \p{OtherIDContinue}
@@ -517,15 +527,5 @@ eval <<'EOSTANZA'; die $@ if $@;
 check(qr/^Great hail!.*no more\.$/, 61, "Overflow both small buffer checks");
 EOSTANZA
 
-{
-    my @x = 'string';
-    is(eval q{ "$x[0]->strung" }, 'string->strung',
-       'literal -> after an array subscript within ""');
-    @x = ['string'];
-    # this used to give "string"
-    like("$x[0]-> [0]", qr/^ARRAY\([^)]*\)-> \[0]\z/,
-       'literal -> [0] after an array subscript within ""');
-}
-
 __END__
 # Don't add new tests HERE. See note above