diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 22:08:03 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 22:08:03 +0000 |
| commit | eebc709302833932d7fca95dfc5c8536f8911e69 (patch) | |
| tree | aadc2cc05cca3595bf1d0e00befd7001eb267c52 | |
| parent | dec2d1453e836a783ce0e3cd7d8aede5702188c2 (diff) | |
| download | thermoprint-eebc709302833932d7fca95dfc5c8536f8911e69.tar thermoprint-eebc709302833932d7fca95dfc5c8536f8911e69.tar.gz thermoprint-eebc709302833932d7fca95dfc5c8536f8911e69.tar.bz2 thermoprint-eebc709302833932d7fca95dfc5c8536f8911e69.tar.xz thermoprint-eebc709302833932d7fca95dfc5c8536f8911e69.zip | |
Better test identification
| -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) | ||