Change 23318 by nicholas@no-spam on 2004/09/10 16:27:07
Update the skips for the no perlio case
Affected files ...
... //depot/maint-5.8/perl/ext/B/t/optree_check.t#7 edit
... //depot/maint-5.8/perl/ext/B/t/optree_concise.t#7 edit
... //depot/maint-5.8/perl/ext/B/t/showlex.t#4 edit
Differences ...
==== //depot/maint-5.8/perl/ext/B/t/optree_check.t#7 (text) ====
Index: perl/ext/B/t/optree_check.t
--- perl/ext/B/t/optree_check.t#6~23290~ Thu Sep 9 01:39:31 2004
+++ perl/ext/B/t/optree_check.t Fri Sep 10 09:27:07 2004
@@no-spam -28,7 +28,7 @@no-spam
plan tests => 5 + 18 + 14 * $gOpts{selftest}; # fudged
SKIP: {
- skip "no perlio in this build", 5 + 19 + 14 * $gOpts{selftest}
+ skip "no perlio in this build", 5 + 18 + 14 * $gOpts{selftest}
unless $Config::Config{useperlio};
==== //depot/maint-5.8/perl/ext/B/t/optree_concise.t#7 (text) ====
Index: perl/ext/B/t/optree_concise.t
--- perl/ext/B/t/optree_concise.t#6~23290~ Thu Sep 9 01:39:31 2004
+++ perl/ext/B/t/optree_concise.t Fri Sep 10 09:27:07 2004
@@no-spam -17,7 +17,7 @@no-spam
plan tests => 23;
SKIP: {
-skip "no perlio in this build", 24 unless $Config::Config{useperlio};
+skip "no perlio in this build", 23 unless $Config::Config{useperlio};
$SIG{__WARN__} = sub {
my $err = shift;
==== //depot/maint-5.8/perl/ext/B/t/showlex.t#4 (xtext) ====
Index: perl/ext/B/t/showlex.t
--- perl/ext/B/t/showlex.t#3~23288~ Wed Sep 8 23:30:32 2004
+++ perl/ext/B/t/showlex.t Fri Sep 10 09:27:07 2004
@@no-spam -59,6 +59,10 @@no-spam
print $out if $verbose;
+SKIP: {
+ skip "no perlio in this build", 5
+ unless $Config::Config{useperlio};
+
our $buf = 'arb startval';
my $ak = B::Showlex::walk_output (\$buf);
@@no-spam -105,3 +109,5 @@no-spam
print $buf if $verbose;
+
+}
End of Patch.