From: Jim Meyering <jim@meyering.net>
Date: Thu, 30 Jan 1997 03:31:40 +0000 (+0000)
Subject: correctly compute number of tests
X-Git-Tag: SH-UTILS-1_16a~327
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=4cbcb32a533fafe82f213f4d2eaaea5bd8820a67;p=thirdparty%2Fcoreutils.git

correctly compute number of tests
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 74275c096c..48b4b1db6f 100644
--- 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 74275c096c..48b4b1db6f 100644
--- 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 74275c096c..48b4b1db6f 100644
--- 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 74275c096c..48b4b1db6f 100644
--- 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