[commit: packages/random] master: rangeTest: Fix type for "CSigAtomic R" test (3000397)

git at git.haskell.org git at git.haskell.org
Thu Mar 19 15:45:15 UTC 2015


Repository : ssh://git@git.haskell.org/random

On branch  : master
Link       : http://git.haskell.org/packages/random.git/commitdiff/3000397a8a60ac9f744171a1b30e60b6aa3720d7

>---------------------------------------------------------------

commit 3000397a8a60ac9f744171a1b30e60b6aa3720d7
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Aug 22 17:41:42 2014 -0400

    rangeTest: Fix type for "CSigAtomic R" test


>---------------------------------------------------------------

3000397a8a60ac9f744171a1b30e60b6aa3720d7
 tests/rangeTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/rangeTest.hs b/tests/rangeTest.hs
index e59f0d6..ac62c71 100644
--- a/tests/rangeTest.hs
+++ b/tests/rangeTest.hs
@@ -121,7 +121,7 @@ main =
     checkBounds "CPtrdiff R"   (False,-100,100)  (approxBounds (randomR (-100,100)) trials (undefined:: CPtrdiff))
     checkBounds "CSize R"      (False,0,200)     (approxBounds (randomR (0,200))    trials (undefined:: CSize))
     checkBounds "CWchar R"     (False,0,100)     (approxBounds (randomR (0,100))    trials (undefined:: CWchar))
-    checkBounds "CSigAtomic R" (False,0,100)     (approxBounds (randomR (0,100))    trials (undefined:: CWchar))
+    checkBounds "CSigAtomic R" (False,0,100)     (approxBounds (randomR (0,100))    trials (undefined:: CSigAtomic))
     checkBounds "CLLong R"     (False,-100,100)  (approxBounds (randomR (-100,100)) trials (undefined:: CLLong))
     checkBounds "CULLong R"    (False,0,200)     (approxBounds (randomR (0,200))    trials (undefined:: CULLong))
     checkBounds "CIntPtr R"    (False,-100,100)  (approxBounds (randomR (-100,100)) trials (undefined:: CIntPtr))



More information about the ghc-commits mailing list