diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 19:01:04 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 19:14:25 -0800 |
commit | cbfc5cbcd37228aec95f7bdca0f1f774c2f63b5a (patch) | |
tree | 17d5b91ee2b3a866c96ea97e48cb9c85f2471a4e | |
parent | d8cf01c3fd9038b24af3eaa18e15b6d872af6644 (diff) | |
download | perl-cbfc5cbcd37228aec95f7bdca0f1f774c2f63b5a.tar.gz |
coreamp.t: Call done_testing with an arg
-rw-r--r-- | t/op/coreamp.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/t/op/coreamp.t b/t/op/coreamp.t index 4285157fe7..3c0a4a412e 100644 --- a/t/op/coreamp.t +++ b/t/op/coreamp.t @@ -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 |