1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/tests/lib/should_run/rand001.hs b/testsuite/tests/lib/should_run/rand001.hs
new file mode 100644
index 0000000000..3567ae0dd8
--- /dev/null
+++ b/testsuite/tests/lib/should_run/rand001.hs
@@ -0,0 +1,22 @@
+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))
+