diff options
author | Todd Rinaldo <toddr@cpan.org> | 2016-01-18 16:30:37 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2016-02-08 14:11:21 +1100 |
commit | 27895dda808516d2e00748a19f6648febae7161f (patch) | |
tree | f90d44ce521fa04753db53f2b88b8da00b86f249 /ext/B | |
parent | 002a7765f808c92b4c6a4907e29e8ab4e662a017 (diff) | |
download | perl-27895dda808516d2e00748a19f6648febae7161f.tar.gz |
Document broken SvSTASH for %version:: in B's test suite
RT 126410: This may not be a B bug but we have no test coverage for SvSTASH at
the moment. TODO the test until it is working correctly.
TonyC: fix syntax error and update MANIFEST
Diffstat (limited to 'ext/B')
-rw-r--r-- | ext/B/t/sv_stash.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/ext/B/t/sv_stash.t b/ext/B/t/sv_stash.t new file mode 100644 index 0000000000..eaaabcf8fe --- /dev/null +++ b/ext/B/t/sv_stash.t @@ -0,0 +1,22 @@ +#!./perl -w + +BEGIN { + unshift @INC, 't'; + require Config; + if ( ( $Config::Config{'extensions'} !~ /\bB\b/ ) ) { + print "1..0 # Skip -- Perl configured without B module\n"; + exit 0; + } + require 'test.pl'; +} +plan 1; + +# RT #126410 = used to coredump when doing SvSTASH on %version:: + +TODO: { + local $TODO = 'Broken since c07f9fb2c7 - revert of a revert: slowed down detruction with no DESTROY'; + fresh_perl_is( + 'use B; version->new("v5.22.0"); $s = B::svref_2object(\%version::); $s->SvSTASH; print "ok\n"', + "ok\n", { stderr => 1 }, 'RT #126410 - SvSTASH against %version::' + ); +} |