[commit: ghc] master: testsuite: Fix GhciCurDir test (4ed3397)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4ed33975e85f567dc351a21e2f27f097db15b7c1/ghc

>---------------------------------------------------------------

commit 4ed33975e85f567dc351a21e2f27f097db15b7c1
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Apr 2 12:05:09 2017 -0400

    testsuite: Fix GhciCurDir test
    
    This was horribly, horribly wrong.


>---------------------------------------------------------------

4ed33975e85f567dc351a21e2f27f097db15b7c1
 testsuite/tests/ghci/scripts/GhciCurDir.script | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/ghci/scripts/GhciCurDir.script b/testsuite/tests/ghci/scripts/GhciCurDir.script
index 785a773..cfeb1a4 100644
--- a/testsuite/tests/ghci/scripts/GhciCurDir.script
+++ b/testsuite/tests/ghci/scripts/GhciCurDir.script
@@ -4,4 +4,5 @@ import Control.Monad
 createDirectory "test"
 createDirectory "test/test1"
 :cd test
-unless ("test1" `elem` getDirectoryContents ".") $ putStrLn "Uh oh."
+fs <- getDirectoryContents "."
+unless ("test1" `elem` fs) $ putStrLn "Uh oh."