diff options
Diffstat (limited to 'server')
| -rw-r--r-- | server/test/Thermoprint/Server/QueueSpec.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 31 | 31 | ||
| 32 | spec :: Spec | 32 | spec :: Spec |
| 33 | spec = do | 33 | spec = do |
| 34 | prop "prop_zipper" $ \queue -> queue == toZipper (fromZipper queue) | 34 | describe "queue morphisms" $ do |
| 35 | prop "are inverse" $ \queue -> queue == toZipper (fromZipper queue) | ||