diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/should_run/rand001.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/lib/should_run/rand001.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/testsuite/tests/ghc-regress/lib/should_run/rand001.hs b/testsuite/tests/ghc-regress/lib/should_run/rand001.hs deleted file mode 100644 index 3567ae0dd8..0000000000 --- a/testsuite/tests/ghc-regress/lib/should_run/rand001.hs +++ /dev/null @@ -1,22 +0,0 @@ -module Main(main) where - -import System.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)) - |