add a test for getDirectoryContents on a non-existent directory

[haskell-directory.git] / tests / all.T

diff --git a/tests/all.T b/tests/all.T
index 9455ef8..2677813 100644 (file)
--- a/tests/all.T
+++ b/tests/all.T
@@ -5,6 +5,8 @@ test('doesDirectoryExist001',   normal, compile_and_run, [''])
 # This test is a bit bogus.  Disable for GHCi.
 test('getDirContents001', omit_ways(['ghci']), compile_and_run, ['-fno-gen-manifest'])
 
+test('getDirContents002', exit_code(1), compile_and_run, [''])
+
 # Depends on binary from previous run, which gets removed by the driver way=ghci
 test('getPermissions001', omit_ways(['ghci']), compile_and_run, ['-cpp'])