Change 34406: The tests for the -ostash option to B::Concise will have been failing

[Nicholas Clark]

Change 34406 by [EMAIL PROTECTED] on 2008/09/23 13:31:26

        The tests for the -ostash option to B::Concise will have been failing
        for -Uusedl since they were added. For now, test with a non-XS module,
        and TODO the test with the XS module when usedl is undefined.

Affected files ...

... //depot/perl/ext/B/t/concise.t#18 edit

Differences ...

==== //depot/perl/ext/B/t/concise.t#18 (text) ====
Index: perl/ext/B/t/concise.t
--- perl/ext/B/t/concise.t#17~32736~    2007-12-26 09:27:15.000000000 -0800
+++ perl/ext/B/t/concise.t      2008-09-23 06:31:26.000000000 -0700
@@ -16,7 +16,7 @@
     require 'test.pl';         # we use runperl from 'test.pl', so can't use 
Test::More
 }
 
-plan tests => 156;
+plan tests => 157;
 
 require_ok("B::Concise");
 
@@ -407,12 +407,21 @@
 like($out, qr/\# 4\d\d: \s+ \$l->concise\(\$level\);/,
      "src-line rendering works");
 
-$out = runperl ( switches => ["-MO=Concise,-stash=Data::Dumper,-src,-exec"],
+$out = runperl ( switches => 
["-MO=Concise,-stash=ExtUtils::Mksymlists,-src,-exec"],
                 prog => '-e 1', stderr => 1 );
 
-like($out, qr/FUNC: \*Data::Dumper::format_refaddr/,
+like($out, qr/FUNC: \*ExtUtils::Mksymlists::_write_vms/,
      "stash rendering loads package as needed");
 
+$out = runperl ( switches => ["-MO=Concise,-stash=Data::Dumper,-src,-exec"],
+                prog => '-e 1', stderr => 1 );
+
+{
+    local $TODO = q(require $package unless ${$package.'::'}; doesn't do what 
you want under static linking) unless $Config{usedl};
+    like($out, qr/FUNC: \*Data::Dumper::format_refaddr/,
+         "stash rendering loads package as needed");
+}
+
 my $prog = q{package FOO; sub bar { print "bar" } package main; FOO::bar(); };
 
 # this would fail if %INC used for -stash test
End of Patch.