diff options
| -rw-r--r-- | ghc/tests/lib/should_run/rand001.hs | 22 | ||||
| -rw-r--r-- | ghc/tests/lib/should_run/rand001.stdout | 5 |
2 files changed, 27 insertions, 0 deletions
diff --git a/ghc/tests/lib/should_run/rand001.hs b/ghc/tests/lib/should_run/rand001.hs new file mode 100644 index 0000000000..f514325829 --- /dev/null +++ b/ghc/tests/lib/should_run/rand001.hs @@ -0,0 +1,22 @@ +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)) + diff --git a/ghc/tests/lib/should_run/rand001.stdout b/ghc/tests/lib/should_run/rand001.stdout new file mode 100644 index 0000000000..2e883c51de --- /dev/null +++ b/ghc/tests/lib/should_run/rand001.stdout @@ -0,0 +1,5 @@ +True +True +True +True +True |