coresubs.t: Call done_testing with an arg

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 1665cf6..3a8d0de 100644 (file)
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -121,7 +121,6 @@ is runperl(prog => 'print CORE->lc, qq-\n-'), "core\n",
 is runperl(prog => '@ISA=CORE; print main->uc, qq-\n-'), "MAIN\n",
  'inherted method calls autovivify coresubs';
 
-is curr_test, $tests+1, 'right number of tests';
-done_testing;
+done_testing $tests;
 
 CORE::__END__