creatur 5.9.9 → 5.9.10

raw patch · 2 files changed

+19/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

creatur.cabal +2/−2
test/ALife/Creatur/Genetics/BRGCWord8QC.hs +17/−2

creatur.cabal view

@@ -1,5 +1,5 @@ Name:              creatur-Version:           5.9.9+Version:           5.9.10 Stability:         experimental Synopsis:          Framework for artificial life experiments. Description:       A software framework for automating experiments@@ -36,7 +36,7 @@ source-repository this   type:     git   location: https://github.com/mhwombat/creatur.git-  tag:      5.9.9+  tag:      5.9.10  library   GHC-Options:      -Wall -fno-warn-orphans

test/ALife/Creatur/Genetics/BRGCWord8QC.hs view

@@ -26,8 +26,8 @@ import GHC.Generics (Generic) import Test.Framework as TF (Test, testGroup) import Test.Framework.Providers.QuickCheck2 (testProperty)-import Test.QuickCheck (Arbitrary, Gen, Property, arbitrary, choose,-  oneof, property, sized, vectorOf)+import Test.QuickCheck ((==>), Arbitrary, Gen, Property, arbitrary,+  choose, oneof, property, sized, vectorOf)  #if MIN_VERSION_base(4,8,0) #else@@ -39,6 +39,13 @@   where x = write g         g' = read x +prop_round_trippable2+  :: Genetic g => Int -> [Word8] -> g -> Property+prop_round_trippable2 n xs dummy = length xs >= n+  ==> xs' == take n xs+  where Right g = read xs+        xs' = write (g `asTypeOf` dummy)+ prop_rawWord8s_round_trippable :: [Word8] -> Property prop_rawWord8s_round_trippable g = property $ g' == g   where x = fst $ runWriter (putRawWord8s g)@@ -84,6 +91,14 @@       (prop_round_trippable :: Word32 -> Property),     testProperty "prop_round_trippable - Word64"       (prop_round_trippable :: Word64 -> Property),+    testProperty "prop_round_trippable2 - Word8"+      (prop_round_trippable2 1 :: [Word8] -> Word8 -> Property),+    testProperty "prop_round_trippable2 - Word16"+      (prop_round_trippable2 2 :: [Word8] -> Word16 -> Property),+    testProperty "prop_round_trippable2 - Word32"+      (prop_round_trippable2 4 :: [Word8] -> Word32 -> Property),+    testProperty "prop_round_trippable2 - Word64"+      (prop_round_trippable2 8 :: [Word8] -> Word64 -> Property),     testProperty "prop_round_trippable - TestStructure"       (prop_round_trippable :: TestStructure -> Property),     testProperty "prop_rawWord8s_round_trippable"