From eebc709302833932d7fca95dfc5c8536f8911e69 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Feb 2016 22:08:03 +0000 Subject: Better test identification --- server/test/Thermoprint/Server/QueueSpec.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/server/test/Thermoprint/Server/QueueSpec.hs b/server/test/Thermoprint/Server/QueueSpec.hs index c39083a..4a9297e 100644 --- a/server/test/Thermoprint/Server/QueueSpec.hs +++ b/server/test/Thermoprint/Server/QueueSpec.hs @@ -31,4 +31,5 @@ instance Arbitrary JobId where spec :: Spec spec = do - prop "prop_zipper" $ \queue -> queue == toZipper (fromZipper queue) + describe "queue morphisms" $ do + prop "are inverse" $ \queue -> queue == toZipper (fromZipper queue) -- cgit v1.2.3