correctly compute number of tests

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 74275c096c03da37b2208e436b1832961fb10c50..48b4b1db6f193d6c7729c3f5df1ec080c488b124 100644 (file)
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -220,6 +220,7 @@ EOF1
 
   validate ();
 
+  my $n_tests = 0;
   my $test_vector;
   foreach $test_vector (Test::test_vector ())
     {
@@ -285,6 +286,7 @@ EOF1
              $msg = "($msg)" if $msg;
              my $t_name = "$test_name$msg";
              my $e_cmd = ($e ? "$e " : '');
+             ++$n_tests;
              print <<EOF;
 $e_cmd$cmd
 code=\$?
@@ -307,7 +309,6 @@ EOF
            }
        }
     }
-  my $n_tests = Test::test_vector ();
   print <<EOF3 ;
 if test \$errors = 0 ; then
   \$echo Passed all $n_tests tests. 1>&2

diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index 74275c096c03da37b2208e436b1832961fb10c50..48b4b1db6f193d6c7729c3f5df1ec080c488b124 100644 (file)
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -220,6 +220,7 @@ EOF1
 
   validate ();
 
+  my $n_tests = 0;
   my $test_vector;
   foreach $test_vector (Test::test_vector ())
     {
@@ -285,6 +286,7 @@ EOF1
              $msg = "($msg)" if $msg;
              my $t_name = "$test_name$msg";
              my $e_cmd = ($e ? "$e " : '');
+             ++$n_tests;
              print <<EOF;
 $e_cmd$cmd
 code=\$?
@@ -307,7 +309,6 @@ EOF
            }
        }
     }
-  my $n_tests = Test::test_vector ();
   print <<EOF3 ;
 if test \$errors = 0 ; then
   \$echo Passed all $n_tests tests. 1>&2

diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index 74275c096c03da37b2208e436b1832961fb10c50..48b4b1db6f193d6c7729c3f5df1ec080c488b124 100644 (file)
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -220,6 +220,7 @@ EOF1
 
   validate ();
 
+  my $n_tests = 0;
   my $test_vector;
   foreach $test_vector (Test::test_vector ())
     {
@@ -285,6 +286,7 @@ EOF1
              $msg = "($msg)" if $msg;
              my $t_name = "$test_name$msg";
              my $e_cmd = ($e ? "$e " : '');
+             ++$n_tests;
              print <<EOF;
 $e_cmd$cmd
 code=\$?
@@ -307,7 +309,6 @@ EOF
            }
        }
     }
-  my $n_tests = Test::test_vector ();
   print <<EOF3 ;
 if test \$errors = 0 ; then
   \$echo Passed all $n_tests tests. 1>&2

diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index 74275c096c03da37b2208e436b1832961fb10c50..48b4b1db6f193d6c7729c3f5df1ec080c488b124 100644 (file)
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -220,6 +220,7 @@ EOF1
 
   validate ();
 
+  my $n_tests = 0;
   my $test_vector;
   foreach $test_vector (Test::test_vector ())
     {
@@ -285,6 +286,7 @@ EOF1
              $msg = "($msg)" if $msg;
              my $t_name = "$test_name$msg";
              my $e_cmd = ($e ? "$e " : '');
+             ++$n_tests;
              print <<EOF;
 $e_cmd$cmd
 code=\$?
@@ -307,7 +309,6 @@ EOF
            }
        }
     }
-  my $n_tests = Test::test_vector ();
   print <<EOF3 ;
 if test \$errors = 0 ; then
   \$echo Passed all $n_tests tests. 1>&2