[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / should_run / rand001.hs

diff --git a/ghc/tests/lib/should_run/rand001.hs b/ghc/tests/lib/should_run/rand001.hs
deleted file mode 100644 (file)
index f514325..0000000
--- a/ghc/tests/lib/should_run/rand001.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-module Main(main) where
-
-import Random
-
-tstRnd rng = checkRange rng (genRnd 50 rng)
- 
-genRnd n rng = take n (randomRs rng (mkStdGen 2))
- 
-checkRange (lo,hi) = all pred
-  where
-   pred
-    | lo <= hi  = \ x -> x >= lo && x <= hi
-    | otherwise = \ x -> x >= hi && x <= lo
-
-main :: IO ()
-main = do
-  print (tstRnd (1,5::Double))
-  print (tstRnd (1,5::Int))
-  print (tstRnd (10,54::Integer))
-  print (tstRnd ((-6),2::Int))
-  print (tstRnd (2,(-6)::Int))
-