Move tests from testsuite/tests/ghc-regress/lib/Directory

[haskell-directory.git] / tests / getPermissions001.hs

diff --git a/tests/getPermissions001.hs b/tests/getPermissions001.hs
new file mode 100644 (file)
index 0000000..0c435df
--- /dev/null
+++ b/tests/getPermissions001.hs
@@ -0,0 +1,13 @@
+import Directory
+
+main = do
+  p <- getPermissions "."
+  print p
+  p <- getPermissions "getPermissions001.hs"
+  print p
+#ifndef i386_unknown_mingw32
+  p <- getPermissions "getPermissions001"
+#else
+  p <- getPermissions "getPermissions001.exe"
+#endif
+  print p