From 990c0d0fad71019b1a18c15c2ff85433cb282b42 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Thu, 10 Jul 1997 15:56:33 +0000 Subject: Include $0 in `wrong number of elements...' message. --- tests/cut/mk-script.pl | 2 +- tests/head/mk-script.pl | 2 +- tests/join/mk-script.pl | 2 +- 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); -- cgit v1.2.3-70-g09d2