diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 15:56:04 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-17 15:56:04 +0100 |
| commit | dec2d1453e836a783ce0e3cd7d8aede5702188c2 (patch) | |
| tree | 0b57a2b1ca1ddcae4649d5456ca9dfde517ef137 /server/test | |
| parent | fff9cbfc9e7919723349e18c4b9aea89bcc48c1a (diff) | |
| download | thermoprint-dec2d1453e836a783ce0e3cd7d8aede5702188c2.tar thermoprint-dec2d1453e836a783ce0e3cd7d8aede5702188c2.tar.gz thermoprint-dec2d1453e836a783ce0e3cd7d8aede5702188c2.tar.bz2 thermoprint-dec2d1453e836a783ce0e3cd7d8aede5702188c2.tar.xz thermoprint-dec2d1453e836a783ce0e3cd7d8aede5702188c2.zip | |
removed extraneous hunit dependency
Diffstat (limited to 'server/test')
| -rw-r--r-- | server/test/Thermoprint/ServerSpec.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/server/test/Thermoprint/ServerSpec.hs b/server/test/Thermoprint/ServerSpec.hs index aa654b1..0d698f0 100644 --- a/server/test/Thermoprint/ServerSpec.hs +++ b/server/test/Thermoprint/ServerSpec.hs | |||
| @@ -3,9 +3,7 @@ | |||
| 3 | 3 | ||
| 4 | module Thermoprint.ServerSpec (spec) where | 4 | module Thermoprint.ServerSpec (spec) where |
| 5 | 5 | ||
| 6 | import Test.HUnit | ||
| 7 | import Test.Hspec | 6 | import Test.Hspec |
| 8 | import Test.Hspec.Contrib.HUnit | ||
| 9 | 7 | ||
| 10 | import Thermoprint.API | 8 | import Thermoprint.API |
| 11 | import Thermoprint.Server | 9 | import Thermoprint.Server |
| @@ -53,7 +51,9 @@ setup = withSystemTempFile "thermoprint.sqlite" $ \fp h -> hClose h >> do | |||
| 53 | (,,) <$> forkIO (thermoprintServer (Nat runSqlite) $ def `withPrinters` printers) <*> pure tPrinter <*> pure tManager | 51 | (,,) <$> forkIO (thermoprintServer (Nat runSqlite) $ def `withPrinters` printers) <*> pure tPrinter <*> pure tManager |
| 54 | 52 | ||
| 55 | spec :: Spec | 53 | spec :: Spec |
| 56 | spec = do | 54 | spec = beforeAll setup $ do |
| 57 | fromHUnitTest . test . ("blub" ~:) $ do | 55 | describe "blubTests" $ do |
| 58 | putStrLn "Blub." | 56 | it "prints Blub." $ \(tId, _, _) -> do |
| 59 | return True | 57 | putStrLn "Blub." |
| 58 | System.IO.print tId | ||
| 59 | True `shouldSatisfy` id | ||
