From 321f1aea5d14e907b89003d592f35023f40c4b65 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 24 Aug 2012 12:39:40 -0700 Subject: [PATCH] =?utf8?q?parser.t:=20Move=20a=20test=20above=20=E2=80=98A?= =?utf8?q?dd=20new=20tests=20here=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- t/comp/parser.t | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/t/comp/parser.t b/t/comp/parser.t index 44fc982..d05e92e 100644 --- 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 -- 2.7.4