diff options
author | Joey Hess <joey@kitenet.net> | 2011-04-25 15:28:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-04-25 15:28:41 -0400 |
commit | 3d3abab6797d49679bfcfa4d3bb919cfc7b5f811 (patch) | |
tree | 0168728aa4228cc982a07667af62aadc1a4859c7 /Key.hs | |
parent | e1bc704a9102c1a1458aceb4c43332d4e970b9e1 (diff) |
move quickcheck Arbitrary declaration into test suite
So git-annex can build w/o quickcheck installed.
Diffstat (limited to 'Key.hs')
-rw-r--r-- | Key.hs | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -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) |