Change 23319 by nicholas@no-spam on 2004/09/10 16:40:17
Integrate:
[ 23318]
Update the skips for the no perlio case
Affected files ...
... //depot/perl/ext/B/t/optree_check.t#5 integrate
... //depot/perl/ext/B/t/optree_concise.t#5 integrate
... //depot/perl/ext/B/t/showlex.t#6 integrate
Differences ...
==== //depot/perl/ext/B/t/optree_check.t#5 (text) ====
Index: perl/ext/B/t/optree_check.t
--- perl/ext/B/t/optree_check.t#4~22951~ Fri Jun 18 04:38:24 2004
+++ perl/ext/B/t/optree_check.t Fri Sep 10 09:40:17 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/perl/ext/B/t/optree_concise.t#5 (text) ====
Index: perl/ext/B/t/optree_concise.t
--- perl/ext/B/t/optree_concise.t#4~22951~ Fri Jun 18 04:38:24 2004
+++ perl/ext/B/t/optree_concise.t Fri Sep 10 09:40:17 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/perl/ext/B/t/showlex.t#6 (xtext) ====
Index: perl/ext/B/t/showlex.t
--- perl/ext/B/t/showlex.t#5~22951~ Fri Jun 18 04:38:24 2004
+++ perl/ext/B/t/showlex.t Fri Sep 10 09:40:17 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.