diff options
| author | Tony Cook <tony@develop-help.com> | 2019-05-03 10:09:06 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-05-03 10:09:06 +1000 |
| commit | 5a6219089f705beb81145b01c1e026157d1edd47 (patch) | |
| tree | 8e4ce830a29bcf5927a50723fbc2d052c01d566c | |
| parent | 9a48f2ab9670d2d0c57075bcf3653fd7c05e3535 (diff) | |
| download | perl-5a6219089f705beb81145b01c1e026157d1edd47.tar.gz | |
(perl #134061) move the test to t/uni/parser.t
porting/test_bootstrap prevents most use of use in t/comp
| -rw-r--r-- | t/comp/parser_run.t | 10 | ||||
| -rw-r--r-- | t/uni/parser.t | 9 |
2 files changed, 9 insertions, 10 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index 4179880497..79b669d807 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -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: diff --git a/t/uni/parser.t b/t/uni/parser.t index 2d24f1d06d..0df238428f 100644 --- a/t/uni/parser.t +++ b/t/uni/parser.t @@ -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 ^^^^^ |