summaryrefslogtreecommitdiff
path: root/ext/B
diff options
context:
space:
mode:
authorTodd Rinaldo <toddr@cpan.org>2016-01-18 16:30:37 +1100
committerTony Cook <tony@develop-help.com>2016-02-08 14:11:21 +1100
commit27895dda808516d2e00748a19f6648febae7161f (patch)
treef90d44ce521fa04753db53f2b88b8da00b86f249 /ext/B
parent002a7765f808c92b4c6a4907e29e8ab4e662a017 (diff)
downloadperl-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.t22
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::'
+ );
+}