This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Data::Dumper/t/dumper.t: only specify number of tests once
authorKarl Williamson <khw@cpan.org>
Thu, 5 Mar 2015 21:47:16 +0000 (14:47 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Mar 2015 16:53:11 +0000 (10:53 -0600)
This calculates the number of tests when some modules are unavailable,
instead of it having to be specified each time there is a change.

dist/Data-Dumper/t/dumper.t

index 0824871..3ee4bcd 100644 (file)
@@ -77,17 +77,20 @@ sub SKIP_TEST {
   ++$TNUM; print "ok $TNUM # skip $reason\n";
 }
 
   ++$TNUM; print "ok $TNUM # skip $reason\n";
 }
 
+$TMAX = 438;
+
 # Force Data::Dumper::Dump to use perl. We test Dumpxs explicitly by calling
 # it direct. Out here it lets us knobble the next if to test that the perl
 # only tests do work (and count correctly)
 $Data::Dumper::Useperl = 1;
 if (defined &Data::Dumper::Dumpxs) {
   print "### XS extension loaded, will run XS tests\n";
 # Force Data::Dumper::Dump to use perl. We test Dumpxs explicitly by calling
 # it direct. Out here it lets us knobble the next if to test that the perl
 # only tests do work (and count correctly)
 $Data::Dumper::Useperl = 1;
 if (defined &Data::Dumper::Dumpxs) {
   print "### XS extension loaded, will run XS tests\n";
-  $TMAX = 438; $XS = 1;
+  $XS = 1;
 }
 else {
   print "### XS extensions not loaded, will NOT run XS tests\n";
 }
 else {
   print "### XS extensions not loaded, will NOT run XS tests\n";
-  $TMAX = 219; $XS = 0;
+  $TMAX /= 2;
+  $XS = 0;
 }
 
 print "1..$TMAX\n";
 }
 
 print "1..$TMAX\n";