non-negative 0.1.1.1 → 0.1.1.2

raw patch · 3 files changed

+2/−36 lines, 3 files

Files

• Test/Numeric/NonNegative/Chunky.hs +0/−21
• Test/Utility.hs +0/−13
• non-negative.cabal +2/−2

@@ -101,20 +101,6 @@    let y = Chunky.fromNumber limit    in  P.min x y == y -showInfinite0 :: Int -> Bool-showInfinite0 =-   (\t -> t==t) . take 1000000 . show .-   const (Chunky.fromChunks $ iterate (2-) (1::NonNegW.Integer))--showInfinite1 :: (NonNeg.C a, Num a, Show a) => a -> Bool-showInfinite1 =-   (\t -> t==t) . take 10000 . show .-   (\n -> Chunky.fromChunks $ iterate (2-) (1+0*n))--showInfinite2 :: (NonNeg.C a, Num a, Show a) => a -> Bool-showInfinite2 =-   (\t -> t==t) . take 10000 . show . infinity- addInfiniteL :: (NonNeg.C a, Num a) => a -> a -> Chunky.T a -> Bool addInfiniteL limit x y =    checkInfinity limit (infinity x + y)@@ -236,13 +222,6 @@      quickCheck splitSpaceLeak4) :    ("splitSpaceLeak5",      quickCheck splitSpaceLeak5) :--   ("showInfinite0",-     quickCheck (showInfinite0 :: Int -> Bool)) :-   ("showInfinite1",-     quickCheck (showInfinite1 :: NonNegW.Int -> Bool)) :-   ("showInfinite2",-     quickCheck (showInfinite2 :: NonNegW.Int -> Bool)) :     ("addInfiniteL",      quickCheck (addInfiniteL :: Card -> Card -> Chunky.T Card -> Bool)) :

@@ -1,10 +1,6 @@ module Test.Utility where -import Test.QuickCheck (Arbitrary(..))- import qualified Numeric.NonNegative.Wrapper as NonNeg-import Control.Monad (liftM)-import Data.Char (chr)   type TimeDiff = NonNeg.Int@@ -15,12 +11,3 @@ makeFracTime :: (TimeDiff, TimeDiff) -> NonNeg.Double makeFracTime (n,d) =    timeToDouble n / (timeToDouble d + 1)---instance Arbitrary Char where-   arbitrary = liftM (chr . (32+) . flip mod 96) arbitrary--instance Arbitrary a => Arbitrary (Maybe a) where-   arbitrary =-      arbitrary >>=-         \b -> if b then fmap Just arbitrary else return Nothing

@@ -1,5 +1,5 @@ Name:             non-negative-Version:          0.1.1.1+Version:          0.1.1.2 License:          GPL License-File:     LICENSE Author:           Henning Thielemann <haskell@henning-thielemann.de>@@ -21,7 +21,7 @@   description: Choose the new smaller, split-up base package.  Source-Repository this-  Tag:         0.1.1.1+  Tag:         0.1.1.2   Type:        darcs   Location:    http://code.haskell.org/~thielema/non-negative/