t/uni/case.pl: Use calculated test count

[perl5.git] / t / uni / case.pl

diff --git a/t/uni/case.pl b/t/uni/case.pl
index f9c3640..b181bb1 100644 (file)
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -78,11 +78,6 @@ sub casetest {
     }
     print "# ", scalar keys %none, " noncase mappings\n";
 
-    my $tests = 
-        $already_run +
-       ((scalar keys %simple) +
-        (scalar keys %spec) +
-        (scalar keys %none)) * @funcs;
 
     my $test = $already_run + 1;
 
@@ -117,7 +112,10 @@ sub casetest {
        }
     }
 
-    done_testing();
+    plan $already_run +
+       ((scalar keys %simple) +
+        (scalar keys %spec) +
+        (scalar keys %none)) * @funcs;
 }
 
 1;