coreamp.t: Call done_testing with an arg
authorFather Chrysostomos <sprout@cpan.org>
Sun, 25 Dec 2011 03:01:04 +0000 (19:01 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 25 Dec 2011 03:14:25 +0000 (19:14 -0800)
t/op/coreamp.t

index 4285157..3c0a4a4 100644 (file)
@@ -13,10 +13,6 @@ BEGIN {
     require "test.pl";
     $^P |= 0x100;
 }
-# Since tests inside evals can too easily fail silently, we cannot rely
-# on done_testing. It’s much easier to count the tests as we go than to
-# declare the plan up front, so this script ends with a test that makes
-# sure the right number of tests have happened.
 
 sub lis($$;$) {
   &is(map(@$_ ? "[@{[map $_//'~~u~~', @$_]}]" : 'nought', @_[0,1]), $_[2]);
@@ -911,8 +907,7 @@ like $@, qr'^Undefined format "STDOUT" called',
 
 # ------------ END TESTING ----------- #
 
-is curr_test, $tests+1, 'right number of tests';
-done_testing;
+done_testing $tests;
 
 #line 3 frob