Commit be23fdce authored by simonmar's avatar simonmar
Browse files

[project @ 2004-03-10 11:37:03 by simonmar]

remove dependencies on hslibs packages
parent 50a17942
-- !!! Testing that Show for Addr is OK.. -- !!! Testing that Show for Addr is OK..
module Main(main) where module Main(main) where
import Addr import Foreign.Ptr
main :: IO () main :: IO ()
main = do main = do
print (intToAddr maxBound) print (nullPtr `plusPtr` maxBound)
print (intToAddr minBound) print (nullPtr `plusPtr` minBound)
...@@ -8,11 +8,6 @@ test('read001', normal, compile_and_run, ['']) ...@@ -8,11 +8,6 @@ test('read001', normal, compile_and_run, [''])
test('show001', normal, compile_and_run, ['']) test('show001', normal, compile_and_run, [''])
test('text001', normal, compile_and_run, ['']) test('text001', normal, compile_and_run, [''])
# The rest of these tests need -package lang...
def set_opts( opts ):
opts.extra_hc_opts = '-package lang'
setTestOpts( set_opts )
test('addr001', normal, compile_and_run, ['']) test('addr001', normal, compile_and_run, [''])
test('dynamic001', normal, compile_and_run, ['']) test('dynamic001', normal, compile_and_run, [''])
test('dynamic002', normal, compile_and_run, ['']) test('dynamic002', normal, compile_and_run, [''])
......
-- !!! Dynamic library regression tests -- !!! Dynamic library regression tests
module Main(main) where module Main(main) where
import Dynamic import Data.Dynamic
main :: IO () main :: IO ()
main = do main = do
......
-- !!! Testing the Prelude's Enum instances. -- !!! Testing the Prelude's Enum instances.
module Main(main) where module Main(main) where
import Exception import Control.Exception
import Char import Char
import Ratio import Ratio
......
-- !!! Testing the Int Enum instances. -- !!! Testing the Int Enum instances.
module Main(main) where module Main(main) where
import Exception import Control.Exception
import Int import Int
main = do main = do
......
-- !!! Testing the Word Enum instances. -- !!! Testing the Word Enum instances.
module Main(main) where module Main(main) where
import Exception import Control.Exception
import Word import Data.Word
import Int import Data.Int
main = do main = do
putStrLn "Testing Enum Word8:" putStrLn "Testing Enum Word8:"
......
import Exception import Control.Exception
import Prelude hiding (catch) import Prelude hiding (catch)
main = do main = do
......
module Main where module Main where
import Prelude hiding (catch) import Prelude hiding (catch)
import Exception import Control.Exception
import IO hiding (try, catch) import System.IO hiding (try, catch)
main = do main = do
ioTest ioTest
......
module Main where module Main where
import List import Data.List
import Exception import Control.Exception
import Prelude hiding (catch) import Prelude hiding (catch)
-- This module briefly tests all the functions in PrelList and a few -- This module briefly tests all the functions in PrelList and a few
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
module Main (main) where module Main (main) where
import Char (isSpace) import Char (isSpace)
import PackedString import Data.PackedString
-- Bug in PackedString.lhs (fixed in rev 1.5) -- Bug in PackedString.lhs (fixed in rev 1.5)
......
module Main where module Main where
import Stable import System.Mem.StableName
main = do main = do
stable_list1 <- mapM makeStableName list stable_list1 <- mapM makeStableName list
......
import StablePtr import Foreign.StablePtr
-- compile without optimisation. -- compile without optimisation.
-- run with +RTS -D256 to see the stable pointer being garbage collected. -- run with +RTS -D256 to see the stable pointer being garbage collected.
......
-- !!! triggered a temporary bug in freeStablePtr around 20020424 -- !!! triggered a temporary bug in freeStablePtr around 20020424
module Main where module Main where
import StablePtr (newStablePtr, freeStablePtr) import Foreign.StablePtr (newStablePtr, freeStablePtr)
data Foo = A | B | C | D data Foo = A | B | C | D
......
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