From 5f6dd9a608271948bb1d4a1fb975e889db70512c Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 9 Dec 2010 16:48:24 +0100
Subject: selftest: Check exit code when listing tests.

---
 selftest/selftest.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'selftest/selftest.pl')

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index d8640e0d1ad..213954cfbf9 100755
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -959,6 +959,17 @@ $envvarstr
 		$cmd =~ s/\$LISTOPT/--list/;
 
 		system($cmd);
+
+		if ($? == -1) {
+			die("Unable to run $cmd: $!");
+		} elsif ($? & 127) {
+			die(snprintf("%s died with signal %d, %s coredump\n", $cmd, ($? & 127),  ($? & 128) ? 'with' : 'without'));
+		}
+
+		my $exitcode = $? >> 8;
+		if ($exitcode != 0) {
+			die("$cmd exited with exit code $exitcode");
+		}
 	}
 } else {
 	foreach (@todo) {
-- 
cgit v1.2.1