[project @ 2000-08-24 10:27:44 by simonmar]

Add a test for Directory.getPermissions.

ghc/tests/io/should_run/io034.hs

+import Directory
+
+main = do
+  p <- getPermissions "."
+  print p
+  p <- getPermissions "io034.hs"
+  print p
+  p <- getPermissions "io034.bin"
+  print p

ghc/tests/io/should_run/io034.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}