From 3d3abab6797d49679bfcfa4d3bb919cfc7b5f811 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 25 Apr 2011 15:28:41 -0400
Subject: move quickcheck Arbitrary declaration into test suite

So git-annex can build w/o quickcheck installed.
---
 Key.hs  | 13 -------------
 test.hs | 14 ++++++++++++++
 2 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/Key.hs b/Key.hs
index f52aea31b..e1d8ee34d 100644
--- a/Key.hs
+++ b/Key.hs
@@ -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)
diff --git a/test.hs b/test.hs
index 7775fb8b5..ab4766b42 100644
--- a/test.hs
+++ b/test.hs
@@ -7,6 +7,8 @@
 
 import Test.HUnit
 import Test.HUnit.Tools
+import Test.QuickCheck
+
 import System.Directory
 import System.Posix.Directory (changeWorkingDirectory)
 import System.Posix.Files
@@ -42,6 +44,18 @@ import qualified Key
 import qualified Config
 import qualified Crypto
 
+-- for quickcheck
+instance Arbitrary Key.Key where
+	arbitrary = do
+		n <- arbitrary
+		b <- elements ['A'..'Z']
+		return $ Key.Key {
+			Key.keyName = n,
+			Key.keyBackendName = [b],
+			Key.keySize = Nothing,
+			Key.keyMtime = Nothing
+		}
+
 main :: IO ()
 main = do
 	prepare
-- 
cgit v1.2.3