From 40fc171e42f6d0bceeff32d8f737bf1be345a9a0 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 May 1999 11:03:11 +0000
Subject: [PATCH] [project @ 1999-05-13 11:03:10 by sof] Testing the Random
 library (not complete).

---
 ghc/tests/lib/should_run/rand001.hs     |   22 ++++++++++++++++++++++
 ghc/tests/lib/should_run/rand001.stdout |    5 +++++
 2 files changed, 27 insertions(+)
 create mode 100644 ghc/tests/lib/should_run/rand001.hs
 create mode 100644 ghc/tests/lib/should_run/rand001.stdout

diff --git a/ghc/tests/lib/should_run/rand001.hs b/ghc/tests/lib/should_run/rand001.hs
new file mode 100644
index 0000000..f514325
--- /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 0000000..2e883c5
--- /dev/null
+++ b/ghc/tests/lib/should_run/rand001.stdout
@@ -0,0 +1,5 @@
+True
+True
+True
+True
+True
-- 
1.7.10.4