Skip to content

Commit

Permalink
Add t/lib/croak/gv to test fatalizations of $# and $*
Browse files Browse the repository at this point in the history
Adapted from tests formerly in t/lib/warnings/gv.
  • Loading branch information
jkeenan committed Oct 16, 2018
1 parent 0d0579e commit 5f64996
Show file tree
Hide file tree
Showing 2 changed files with 72 additions and 0 deletions.
1 change: 1 addition & 0 deletions MANIFEST
Expand Up @@ -5422,6 +5422,7 @@ t/lib/common.pl Helper for lib/{warnings,feature}.t
t/lib/commonsense.t See if configuration meets basic needs
t/lib/Count.pm Helper for t/op/method.t
t/lib/croak.t Test calls to Perl_croak() in the C source.
t/lib/croak/gv Test croak calls from gv.c
t/lib/croak/mg Test croak calls from mg.c
t/lib/croak/op Test croak calls from op.c
t/lib/croak/pp Test croak calls from pp.c
Expand Down
71 changes: 71 additions & 0 deletions t/lib/croak/gv
@@ -0,0 +1,71 @@
__END__
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = ${"#"};
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = ${"*"};
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = ${#};
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = ${*};
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = $#;
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = $*;
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$# = $a;
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$* = $a;
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = \$#;
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = \$*;
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = \$#;
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = $*;
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $# is no longer supported as of Perl 5.30 [RT #133583]
$a = $#;
EXPECT
$# is no longer supported as of Perl 5.30 at - line 1.
########
# NAME $* is no longer supported as of Perl 5.30 [RT #133583]
$a = $*;
EXPECT
$* is no longer supported as of Perl 5.30 at - line 1.

0 comments on commit 5f64996

Please sign in to comment.