diff options
| author | Jim Meyering <jim@meyering.net> | 1997-07-10 15:56:33 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1997-07-10 15:56:33 +0000 |
| commit | 990c0d0fad71019b1a18c15c2ff85433cb282b42 (patch) | |
| tree | e4ab77b5b2aff225314aa61a1a1b6a8cb504ba57 | |
| parent | 9295c4fdcae5dfe12813d98ddecbfc1c5e41699b (diff) | |
| download | coreutils-990c0d0fad71019b1a18c15c2ff85433cb282b42.tar.xz | |
Include $0 in `wrong number of elements...' message.
| -rw-r--r-- | tests/cut/mk-script.pl | 2 | ||||
| -rw-r--r-- | tests/head/mk-script.pl | 2 | ||||
| -rw-r--r-- | tests/join/mk-script.pl | 2 | ||||
| -rw-r--r-- | tests/ls/mk-script.pl | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index 34282f7eb..644519509 100644 --- 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 34282f7eb..644519509 100644 --- 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 34282f7eb..644519509 100644 --- 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 34282f7eb..644519509 100644 --- 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); |