selftest: Check exit code when listing tests.

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index d8640e0d1ad39d53dc38462990c3c7227520c17e..213954cfbf98df0fc50dae72b6e2225ccba89dae 100755 (executable)
--- 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) {