This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #134061) move the test to t/uni/parser.t
authorTony Cook <tony@develop-help.com>
Fri, 3 May 2019 00:09:06 +0000 (10:09 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 3 May 2019 00:09:06 +0000 (10:09 +1000)
porting/test_bootstrap prevents most use of use in t/comp

t/comp/parser_run.t
t/uni/parser.t

index 4179880..79b669d 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     set_up_inc( qw(. ../lib ) );
 }
 
-plan(6);
+plan(5);
 
 # [perl #130814] can reallocate lineptr while looking ahead for
 # "Missing $ on loop variable" diagnostic.
@@ -55,13 +55,5 @@ syntax error at - line 1, at EOF
 Execution of - aborted due to compilation errors.
 EXPECTED
 
-fresh_perl_is(<<'EOS', <<'EXPECT', {}, 'no panic in pad_findmy_pvn (#134061)');
-use utf8;
-eval "sort \x{100}%";
-die $@;
-EOS
-syntax error at (eval 1) line 1, at EOF
-EXPECT
-
 __END__
 # ex: set ts=8 sts=4 sw=4 et:
index 2d24f1d..0df2384 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     skip_all_without_unicode_tables();
 }
 
-plan (tests => 57);
+plan (tests => 58);
 
 use utf8;
 use open qw( :utf8 :std );
@@ -261,6 +261,13 @@ SKIP: {
     }
 }
 
+fresh_perl_is(<<'EOS', <<'EXPECT', {}, 'no panic in pad_findmy_pvn (#134061)');
+use utf8;
+eval "sort \x{100}%";
+die $@;
+EOS
+syntax error at (eval 1) line 1, at EOF
+EXPECT
 
 # New tests go here ^^^^^