From f5e5be8f035b1fd7c9508916525dc03e5315fb74 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 24 Aug 2000 10:27:44 +0000
Subject: [PATCH] [project @ 2000-08-24 10:27:44 by simonmar] Add a test for
 Directory.getPermissions.

---
 ghc/tests/io/should_run/io034.hs     |    9 +++++++++
 ghc/tests/io/should_run/io034.stdout |    3 +++
 2 files changed, 12 insertions(+)
 create mode 100644 ghc/tests/io/should_run/io034.hs
 create mode 100644 ghc/tests/io/should_run/io034.stdout

diff --git a/ghc/tests/io/should_run/io034.hs b/ghc/tests/io/should_run/io034.hs
new file mode 100644
index 0000000..97faf05
--- /dev/null
+++ b/ghc/tests/io/should_run/io034.hs
@@ -0,0 +1,9 @@
+import Directory
+
+main = do
+  p <- getPermissions "."
+  print p
+  p <- getPermissions "io034.hs"
+  print p
+  p <- getPermissions "io034.bin"
+  print p
diff --git a/ghc/tests/io/should_run/io034.stdout b/ghc/tests/io/should_run/io034.stdout
new file mode 100644
index 0000000..b827957
--- /dev/null
+++ b/ghc/tests/io/should_run/io034.stdout
@@ -0,0 +1,3 @@
+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}
-- 
1.7.10.4