Commit 57ad42e3 authored by Ian Lynagh's avatar Ian Lynagh

Remove the haskell98 dependency from some lib tests

parent e17c4686
module Main(main) where
import IO
import System.IO
import Char
import Data.Char
main = do
isT <- hIsTerminalDevice stdin
......
False
MODULE MAIN(MAIN) WHERE
IMPORT IO
IMPORT SYSTEM.IO
IMPORT CHAR
IMPORT DATA.CHAR
MAIN = DO
IST <- HISTERMINALDEVICE STDIN
......
import IO
import System.IO
import Foreign
import CForeign
import Foreign.C
main = do test True; test False
......
import IO
import System.IO
import Foreign
import CForeign
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 CForeign
import Foreign.C
main = do test True; test False
......
import IO
import System.IO
import Foreign
import CForeign
import Foreign.C
import Control.Monad
main = do test True; test False
......
import IO
import System.IO
import Foreign
import CForeign
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 CForeign
import Foreign.C
import Control.Monad
main = do test True; test False
......
import IO
import System.IO
import Foreign
import CForeign
import Foreign.C
main = do
hSetBinaryMode stdout True
......
import IO
import System.IO
import Foreign
import CForeign
import Foreign.C
-- !!! this test failed to write anything in GHC 5.00.2
main = do
......
-- !!! Testing hGetPosn and hSetPosn
module Main(main) where
import IO
import System.IO
getPosnAndPrint h = do
......
......@@ -31,8 +31,8 @@ At position: 2, found: ' '
At position: 3, found: '!'
At position: 4, found: '!'
At position: 1386, found: 'n'
At position: 1387, found: ' '
At position: 1388, found: '"'
At position: 1389, found: '"'
At position: 1390, found: '\n'
At position: 1376, found: 'n'
At position: 1377, found: ' '
At position: 1378, found: '"'
At position: 1379, found: '"'
At position: 1380, found: '\n'
-- !!! Testing hSeek
module Main(main) where
import IO
import System.Directory
import System.IO
import Directory
main :: IO ()
main = do
......
import IO
import System.IO
import Debug.Trace
......
module Main(main) where
import Numeric
import Ratio
import Data.Ratio
main = print ((fromRat (132874 % 23849))::Double)
......@@ -3,7 +3,7 @@
module Main(main) where
import Numeric
import Char
import Data.Char
main =
let
......
......@@ -3,7 +3,7 @@
module Main(main) where
import Numeric
import Char
import Data.Char
main =
let
......
......@@ -3,7 +3,7 @@
module Main(main) where
import Numeric
import Char
import Data.Char
--showDec :: Integral a => a -> ShowS
showDec = showInt
......
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
......
import Time
import System.Time
main :: IO ()
main = do
......
import Time
import System.Time
main :: IO ()
main = do
......
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