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..
module Main(main) where
import Addr
import Foreign.Ptr
main :: IO ()
main = do
print (intToAddr maxBound)
print (intToAddr minBound)
print (nullPtr `plusPtr` maxBound)
print (nullPtr `plusPtr` minBound)
......@@ -8,11 +8,6 @@ test('read001', normal, compile_and_run, [''])
test('show001', 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('dynamic001', normal, compile_and_run, [''])
test('dynamic002', normal, compile_and_run, [''])
......
-- !!! Dynamic library regression tests
module Main(main) where
import Dynamic
import Data.Dynamic
main :: IO ()
main = do
......
-- !!! Testing the Prelude's Enum instances.
module Main(main) where
import Exception
import Control.Exception
import Char
import Ratio
......
-- !!! Testing the Int Enum instances.
module Main(main) where
import Exception
import Control.Exception
import Int
main = do
......
-- !!! Testing the Word Enum instances.
module Main(main) where
import Exception
import Word
import Int
import Control.Exception
import Data.Word
import Data.Int
main = do
putStrLn "Testing Enum Word8:"
......
import Exception
import Control.Exception
import Prelude hiding (catch)
main = do
......
module Main where
import Prelude hiding (catch)
import Exception
import IO hiding (try, catch)
import Control.Exception
import System.IO hiding (try, catch)
main = do
ioTest
......
module Main where
import List
import Exception
import Data.List
import Control.Exception
import Prelude hiding (catch)
-- This module briefly tests all the functions in PrelList and a few
......
......@@ -3,7 +3,7 @@
module Main (main) where
import Char (isSpace)
import PackedString
import Data.PackedString
-- Bug in PackedString.lhs (fixed in rev 1.5)
......
module Main where
import Stable
import System.Mem.StableName
main = do
stable_list1 <- mapM makeStableName list
......
import StablePtr
import Foreign.StablePtr
-- compile without optimisation.
-- run with +RTS -D256 to see the stable pointer being garbage collected.
......
-- !!! triggered a temporary bug in freeStablePtr around 20020424
module Main where
import StablePtr (newStablePtr, freeStablePtr)
import Foreign.StablePtr (newStablePtr, freeStablePtr)
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