move quickcheck Arbitrary declaration into test suite

So git-annex can build w/o quickcheck installed.
This commit is contained in:
Joey Hess 2011-04-25 15:28:41 -04:00
parent e1bc704a91
commit 3d3abab679
2 changed files with 14 additions and 13 deletions

13
Key.hs
View file

@ -13,7 +13,6 @@ module Key (
prop_idempotent_key_read_show
) where
import Test.QuickCheck
import Utility
import System.Posix.Types
@ -71,17 +70,5 @@ readKey s = if key == Just stubKey then Nothing else key
addfield 'm' k v = Just k { keyMtime = readMaybe v }
addfield _ _ _ = Nothing
-- for quickcheck
instance Arbitrary Key where
arbitrary = do
n <- arbitrary
b <- elements ['A'..'Z']
return $ Key {
keyName = n,
keyBackendName = [b],
keySize = Nothing,
keyMtime = Nothing
}
prop_idempotent_key_read_show :: Key -> Bool
prop_idempotent_key_read_show k = Just k == (readKey $ show k)