diff options
author | Karl Williamson <khw@cpan.org> | 2015-03-05 14:47:16 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-13 10:53:11 -0600 |
commit | d5cfd677c785b1cdcd4ebde6c85aa07aa81dce85 (patch) | |
tree | 2f6ba9067d25de5efc02f074010d6e5ac4d18a1e /dist/Data-Dumper | |
parent | f05168589e1525c3bf5d55388584ba78b538be8c (diff) | |
download | perl-d5cfd677c785b1cdcd4ebde6c85aa07aa81dce85.tar.gz |
Data::Dumper/t/dumper.t: only specify number of tests once
This calculates the number of tests when some modules are unavailable,
instead of it having to be specified each time there is a change.
Diffstat (limited to 'dist/Data-Dumper')
-rw-r--r-- | dist/Data-Dumper/t/dumper.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index 0824871a99..3ee4bcd62f 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -77,17 +77,20 @@ sub SKIP_TEST { ++$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"; - $TMAX = 438; $XS = 1; + $XS = 1; } else { print "### XS extensions not loaded, will NOT run XS tests\n"; - $TMAX = 219; $XS = 0; + $TMAX /= 2; + $XS = 0; } print "1..$TMAX\n"; |