Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
57ad42e3
Commit
57ad42e3
authored
Feb 05, 2011
by
Ian Lynagh
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove the haskell98 dependency from some lib tests
parent
e17c4686
Changes
19
Hide whitespace changes
Inline
Side-by-side
Showing
19 changed files
with
23 additions
and
36 deletions
+23
-36
testsuite/tests/ghc-regress/lib/IOExts/echo001.hs
testsuite/tests/ghc-regress/lib/IOExts/echo001.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/echo001.stdout
testsuite/tests/ghc-regress/lib/IOExts/echo001.stdout
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.hs
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.stdout
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.stdout
+2
-4
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.hs
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.stdout
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.stdout
+2
-4
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf001.hs
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf001.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.hs
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/hTell001.hs
testsuite/tests/ghc-regress/lib/IOExts/hTell001.hs
+0
-1
testsuite/tests/ghc-regress/lib/IOExts/hTell001.stdout
testsuite/tests/ghc-regress/lib/IOExts/hTell001.stdout
+5
-5
testsuite/tests/ghc-regress/lib/IOExts/hTell002.hs
testsuite/tests/ghc-regress/lib/IOExts/hTell002.hs
+1
-2
testsuite/tests/ghc-regress/lib/IOExts/trace001.hs
testsuite/tests/ghc-regress/lib/IOExts/trace001.hs
+0
-1
testsuite/tests/ghc-regress/lib/Numeric/num001.hs
testsuite/tests/ghc-regress/lib/Numeric/num001.hs
+1
-1
testsuite/tests/ghc-regress/lib/Numeric/num003.hs
testsuite/tests/ghc-regress/lib/Numeric/num003.hs
+1
-1
testsuite/tests/ghc-regress/lib/Numeric/num004.hs
testsuite/tests/ghc-regress/lib/Numeric/num004.hs
+1
-1
testsuite/tests/ghc-regress/lib/Numeric/num006.hs
testsuite/tests/ghc-regress/lib/Numeric/num006.hs
+1
-1
testsuite/tests/ghc-regress/lib/Time/time002.hs
testsuite/tests/ghc-regress/lib/Time/time002.hs
+1
-1
testsuite/tests/ghc-regress/lib/Time/time003.hs
testsuite/tests/ghc-regress/lib/Time/time003.hs
+1
-1
testsuite/tests/ghc-regress/lib/Time/time004.hs
testsuite/tests/ghc-regress/lib/Time/time004.hs
+1
-1
No files found.
testsuite/tests/ghc-regress/lib/IOExts/echo001.hs
View file @
57ad42e3
module
Main
(
main
)
where
import
IO
import
System.IO
import
Char
import
Data.
Char
main
=
do
isT
<-
hIsTerminalDevice
stdin
...
...
testsuite/tests/ghc-regress/lib/IOExts/echo001.stdout
View file @
57ad42e3
False
MODULE MAIN(MAIN) WHERE
IMPORT IO
IMPORT SYSTEM.IO
IMPORT CHAR
IMPORT
DATA.
CHAR
MAIN = DO
IST <- HISTERMINALDEVICE STDIN
...
...
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.hs
View file @
57ad42e3
import
IO
import
System.IO
import
Foreign
import
C
Foreign
import
Foreign
.C
main
=
do
test
True
;
test
False
...
...
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf002.stdout
View file @
57ad42e3
import IO
import System.IO
import Foreign
import
C
Foreign
import Foreign
.C
main = do test True; test False
...
...
@@ -21,10 +20,9 @@ test blocking = do
loop
import IO
import System.IO
import Foreign
import
C
Foreign
import Foreign
.C
main = do test True; test False
...
...
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.hs
View file @
57ad42e3
import
IO
import
System.IO
import
Foreign
import
C
Foreign
import
Foreign
.C
import
Control.Monad
main
=
do
test
True
;
test
False
...
...
testsuite/tests/ghc-regress/lib/IOExts/hGetBuf003.stdout
View file @
57ad42e3
import IO
import System.IO
import Foreign
import
C
Foreign
import Foreign
.C
import Control.Monad
main = do test True; test False
...
...
@@ -25,10 +24,9 @@ test blocking = do
loop
import IO
import System.IO
import Foreign
import
C
Foreign
import Foreign
.C
import Control.Monad
main = do test True; test False
...
...
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf001.hs
View file @
57ad42e3
import
IO
import
System.IO
import
Foreign
import
C
Foreign
import
Foreign
.C
main
=
do
hSetBinaryMode
stdout
True
...
...
testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.hs
View file @
57ad42e3
import
IO
import
System.IO
import
Foreign
import
C
Foreign
import
Foreign
.C
-- !!! this test failed to write anything in GHC 5.00.2
main
=
do
...
...
testsuite/tests/ghc-regress/lib/IOExts/hTell001.hs
View file @
57ad42e3
-- !!! Testing hGetPosn and hSetPosn
module
Main
(
main
)
where
import
IO
import
System.IO
getPosnAndPrint
h
=
do
...
...
testsuite/tests/ghc-regress/lib/IOExts/hTell001.stdout
View file @
57ad42e3
...
...
@@ -31,8 +31,8 @@ At position: 2, found: ' '
At position: 3, found: '!'
At position: 4, found: '!'
At position: 13
8
6, found: 'n'
At position: 13
8
7, found: ' '
At position: 13
8
8, found: '"'
At position: 13
8
9, found: '"'
At position: 13
9
0, found: '\n'
At position: 13
7
6, found: 'n'
At position: 13
7
7, found: ' '
At position: 13
7
8, found: '"'
At position: 13
7
9, found: '"'
At position: 13
8
0, found: '\n'
testsuite/tests/ghc-regress/lib/IOExts/hTell002.hs
View file @
57ad42e3
-- !!! Testing hSeek
module
Main
(
main
)
where
import
IO
import
System.Directory
import
System.IO
import
Directory
main
::
IO
()
main
=
do
...
...
testsuite/tests/ghc-regress/lib/IOExts/trace001.hs
View file @
57ad42e3
import
IO
import
System.IO
import
Debug.Trace
...
...
testsuite/tests/ghc-regress/lib/Numeric/num001.hs
View file @
57ad42e3
module
Main
(
main
)
where
import
Numeric
import
Ratio
import
Data.
Ratio
main
=
print
((
fromRat
(
132874
%
23849
))
::
Double
)
testsuite/tests/ghc-regress/lib/Numeric/num003.hs
View file @
57ad42e3
...
...
@@ -3,7 +3,7 @@
module
Main
(
main
)
where
import
Numeric
import
Char
import
Data.
Char
main
=
let
...
...
testsuite/tests/ghc-regress/lib/Numeric/num004.hs
View file @
57ad42e3
...
...
@@ -3,7 +3,7 @@
module
Main
(
main
)
where
import
Numeric
import
Char
import
Data.
Char
main
=
let
...
...
testsuite/tests/ghc-regress/lib/Numeric/num006.hs
View file @
57ad42e3
...
...
@@ -3,7 +3,7 @@
module
Main
(
main
)
where
import
Numeric
import
Char
import
Data.
Char
--showDec :: Integral a => a -> ShowS
showDec
=
showInt
...
...
testsuite/tests/ghc-regress/lib/Time/time002.hs
View file @
57ad42e3
import
Time
import
System.
Time
-- !!! check that we can read the current ClockTime, convert it
-- !!! to CalendarTime and back again, and that all three times when
...
...
testsuite/tests/ghc-regress/lib/Time/time003.hs
View file @
57ad42e3
import
Time
import
System.
Time
main
::
IO
()
main
=
do
...
...
testsuite/tests/ghc-regress/lib/Time/time004.hs
View file @
57ad42e3
import
Time
import
System.
Time
main
::
IO
()
main
=
do
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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