[project @ 2001-09-07 12:52:23 by rrt]

testsuite/tests/ghc-regress/lib/Directory/all.T

@@ -4,4 +4,4 @@ include ($confdir ++ "/../vanilla-test.T")
 test "currentDirectory001"     { vtr("","","") }
 test "directory001"            { vtr("","","") }
 test "getDirectoryContents001" { vtr("","","") }
-test "getPermissions001"       { vtr("","","") }
+test "getPermissions001"       { vtr("-cpp","","") }

testsuite/tests/ghc-regress/lib/Directory/getDirectoryContents001.stdout

@@ -5,4 +5,5 @@ getDirectoryContents001.o
 getDirectoryContents001.run.stderr
 getDirectoryContents001.run.stdout
 getDirectoryContents001.stdout
+getDirectoryContents001.stdout-i386-unknown-mingw32
 

testsuite/tests/ghc-regress/lib/Directory/getPermissions001.hs

@@ -5,5 +5,9 @@ main = do
   print p
   p <- getPermissions "getPermissions001.hs"
   print p
---  p <- getPermissions "getPermissions001"
---  print p
+#ifndef i386_unknown_mingw32
+  p <- getPermissions "getPermissions001"
+#else
+  p <- getPermissions "getPermissions001.exe"
+#endif
+  print p

testsuite/tests/ghc-regress/lib/Directory/getPermissions001.stdout

 Permissions{readable=True,writable=True,executable=False,searchable=True}
 Permissions{readable=True,writable=True,executable=False,searchable=False}
+Permissions{readable=True,writable=True,executable=True,searchable=False}