shlist

commit 3a8f47194e3e2f56ddcb431c0297d93ecddb4709
parent a047b2e90dc8b56d1784fdcf7fd142fb2e846ee3
Author: kyle <kyle@getaddrinfo.net>
Date:   Mon, 23 Nov 2015 20:19:19 -0700

tests: print directory in front of test fail()'s

Diffstat:
M
run_tests.sh
 | 
1
+
M
tests/test.pm
 | 
2
+-

2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/run_tests.sh b/run_tests.sh
@@ -20,6 +20,7 @@ count=0
 for t in `ls tests/*/Makefile`; do
 	count=`expr $count + 1`
 	test_dir=`dirname ${t}`
+	export TEST_DIR="$test_dir"
 	make -s -C $test_dir clean
 
 	perl sl -p $PORT -t > $test_dir/server.log &
diff --git a/tests/test.pm b/tests/test.pm
@@ -13,7 +13,7 @@ our (%msg_num, @msg_str);
 our @EXPORT = qw(new_socket fail send_msg recv_msg %msg_num @msg_str SHUT_RDWR);
 
 sub fail {
-	print "$0: " . shift . "\n";
+	print "$ENV{TEST_DIR}/$0: " . shift . "\n";
 	exit 1;
 }