[commit: packages/random] new_api: Reactivated big Integer tests that were deactivated on the master branch. (5541f8c)

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


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

On branch  : new_api
Link       : http://git.haskell.org/packages/random.git/commitdiff/5541f8cdca26657cfc18bd6d101870e7c3a913a2

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

commit 5541f8cdca26657cfc18bd6d101870e7c3a913a2
Author: Ryan Newton <rrnewton at gmail.com>
Date:   Wed Jun 29 13:28:46 2011 -0400

    Reactivated big Integer tests that were deactivated on the master branch.


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

5541f8cdca26657cfc18bd6d101870e7c3a913a2
 tests/rangeTest.hs     | 4 ++--
 tests/rangeTest.stdout | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/rangeTest.hs b/tests/rangeTest.hs
index 704a36c..88f736d 100644
--- a/tests/rangeTest.hs
+++ b/tests/rangeTest.hs
@@ -58,8 +58,8 @@ main =
  do 
     checkBounds "Int"     (intRange nb)  (approxBounds random trials (undefined::Int))
     checkBounds "Integer" (intRange nb)  (approxBounds random trials (undefined::Integer))
---    checkBounds "Integer Rbig"    (False,-(2^500), 2^500) (approxBounds (randomR (-(2^500), 2^500)) trials (undefined::Integer))
---    checkBounds "Integer RbigPos" (False,1,2^5000)        (approxBounds (randomR (1,2^5000))        trials (undefined::Integer))
+    checkBounds "Integer Rbig"    (False,-(2^500), 2^500) (approxBounds (randomR (-(2^500), 2^500)) trials (undefined::Integer))
+    checkBounds "Integer RbigPos" (False,1,2^5000)        (approxBounds (randomR (1,2^5000))        trials (undefined::Integer))
     checkBounds "Int8"    (intRange 8)   (approxBounds random trials (undefined::Int8))
     checkBounds "Int16"   (intRange 16)  (approxBounds random trials (undefined::Int16))
     checkBounds "Int32"   (intRange 32)  (approxBounds random trials (undefined::Int32))
diff --git a/tests/rangeTest.stdout b/tests/rangeTest.stdout
index 55ccaff..f9d9479 100644
--- a/tests/rangeTest.stdout
+++ b/tests/rangeTest.stdout
@@ -1,5 +1,7 @@
 Int:  Passed
 Integer:  Passed
+Integer Rbig:  Passed
+Integer RbigPos:  Passed
 Int8:  Passed
 Int16:  Passed
 Int32:  Passed



More information about the ghc-commits mailing list