From 55074a07fdb847749e4f57c6c2eac4ffab1d48b6 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 18 Feb 2016 21:59:00 +0000 Subject: Api tests for Thermoprint.Server --- server/test/Thermoprint/Server/QueueSpec.hs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'server/test/Thermoprint/Server/QueueSpec.hs') diff --git a/server/test/Thermoprint/Server/QueueSpec.hs b/server/test/Thermoprint/Server/QueueSpec.hs index 4a9297e..8a6bb7b 100644 --- a/server/test/Thermoprint/Server/QueueSpec.hs +++ b/server/test/Thermoprint/Server/QueueSpec.hs @@ -16,19 +16,6 @@ import Test.QuickCheck.Modifiers deriving instance (Eq PrintingError) deriving instance (Eq Queue) -instance Arbitrary Queue where - arbitrary = Queue <$> arbitrary <*> arbitrary <*> arbitrary - -instance Arbitrary QueueEntry where - arbitrary = QueueEntry <$> arbitrary <*> arbitrary - -instance Arbitrary PrintingError where - arbitrary = oneof [ return (IOError "dummy") - ] - -instance Arbitrary JobId where - arbitrary = castId . getNonNegative <$> (arbitrary :: Gen (NonNegative Integer)) - spec :: Spec spec = do describe "queue morphisms" $ do -- cgit v1.2.3