Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
0ecc9e31
Commit
0ecc9e31
authored
Sep 07, 2001
by
rrt
Browse files
[project @ 2001-09-07 12:52:23 by rrt]
parent
a9ad23a9
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/Directory/all.T
View file @
0ecc9e31
...
...
@@ -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
View file @
0ecc9e31
...
...
@@ -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
View file @
0ecc9e31
...
...
@@ -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
View file @
0ecc9e31
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}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment