X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FRT96893_perlcc.t;h=928a8a4cada2d60350f18763cfe70c0e101e1044;hb=4cd62f77256e960b7326e18c45bce10c551e5953;hp=1c5b3db5a3a380b691ad74e9370252d030c3cb02;hpb=b099984f59b3cceee86dcbe3e373141f4f28f864;p=p5sagit%2FSub-Name.git

diff --git a/t/RT96893_perlcc.t b/t/RT96893_perlcc.t
index 1c5b3db..928a8a4 100644
--- a/t/RT96893_perlcc.t
+++ b/t/RT96893_perlcc.t
@@ -6,7 +6,7 @@ use Test::More 0.88;
 plan skip_all => 'B::C required for testing perlcc -O3'
     unless eval "require B::C;";
 
-plan skip_all => "B::C is too old (require 1.48, have $B::C::VERSION)"
+plan skip_all => 'B::C is too old (require 1.48, have ' . ($B::C::VERSION || 'undef') . ')'
     unless eval { B::C->VERSION('1.48') };
 
 plan skip_all => 'Devel::CheckBin required for looking for a perlcc executable'
@@ -18,10 +18,13 @@ plan tests => 1;
 
 my $f = "t/rt96893x.pl";
 open my $fh, ">", $f; END { unlink $f if $f }
-print $fh 'use Sub::Name; subname("main::bar", sub{42}); print "ok 1\n";';
+print $fh 'use Sub::Name; subname("main::bar", sub{42}); print "# successfully ran subname() with perlcc\n";';
 close $fh;
 
 system($^X, qw(-Mblib -S perlcc -O3 -UCarp -UConfig -r), $f);
 
+local $TODO = 'experimental, for informational purposes only';
+is($? >> 8, 0, 'executable completed successfully');
+
 unlink "t/rt96893x", "t/rt96893x.exe";
 # vim: ft=perl