* tests/test_driver.pl: Remember error for "running" a directory.

* tests/scripts/features/errors: Check errors "running" a directory.

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/test_driver.pl b/tests/test_driver.pl
index 30e19435..6ae523d1 100644
--- a/tests/test_driver.pl
+++ b/tests/test_driver.pl
@@ -69,6 +69,7 @@ $ERR_no_such_file = undef;
 $ERR_read_only_file = undef;
 $ERR_unreadable_file = undef;
 $ERR_noexe_file = undef;
+$ERR_exe_dir = undef;
 
 if (open(my $F, '<', 'file.none')) {
     print "Opened non-existent file! Skipping related tests.\n";
@@ -94,6 +95,13 @@ if ($? == 0) {
     $ERR_nonexe_file = "$!";
 }
 
+$_ = `./.`;
+if ($? == 0) {
+    print "Executed directory!  Skipping related tests.\n";
+} else {
+    $ERR_exe_dir = "$!";
+}
+
 chmod(0000, 'file.out');
 if (open(my $F, '<', 'file.out')) {
     print "Opened unreadable file!  Skipping related tests.\n";