Include $0 in `wrong number of elements...' message.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 34282f7eb205fdecf3711b3550eace20e7fb9272..644519509732d6fe18f0275e1b7047b553660ade 100644 (file)
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
        @$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
        if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);

diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index 34282f7eb205fdecf3711b3550eace20e7fb9272..644519509732d6fe18f0275e1b7047b553660ade 100644 (file)
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
        @$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
        if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);

diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index 34282f7eb205fdecf3711b3550eace20e7fb9272..644519509732d6fe18f0275e1b7047b553660ade 100644 (file)
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
        @$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
        if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);

diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index 34282f7eb205fdecf3711b3550eace20e7fb9272..644519509732d6fe18f0275e1b7047b553660ade 100644 (file)
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -24,7 +24,7 @@ sub validate
     {
       my ($test_name, $flags, $in_spec, $expected, $e_ret_code, $rest) =
        @$test_vector;
-      die "wrong number of elements in test $test_name\n"
+      die "$0: wrong number of elements in test $test_name\n"
        if (!defined $e_ret_code || defined $rest);
       assert (!ref $test_name);
       assert (!ref $flags);