Commit 0ecc9e31 authored by rrt's avatar rrt
Browse files

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

parent a9ad23a9
......@@ -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","","") }
......@@ -5,4 +5,5 @@ getDirectoryContents001.o
getDirectoryContents001.run.stderr
getDirectoryContents001.run.stdout
getDirectoryContents001.stdout
getDirectoryContents001.stdout-i386-unknown-mingw32
......@@ -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
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}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment