aboutsummaryrefslogtreecommitdiff
path: root/server/test/Thermoprint/ServerSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'server/test/Thermoprint/ServerSpec.hs')
-rw-r--r--server/test/Thermoprint/ServerSpec.hs12
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
4module Thermoprint.ServerSpec (spec) where 4module Thermoprint.ServerSpec (spec) where
5 5
6import Test.HUnit
7import Test.Hspec 6import Test.Hspec
8import Test.Hspec.Contrib.HUnit
9 7
10import Thermoprint.API 8import Thermoprint.API
11import Thermoprint.Server 9import 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
55spec :: Spec 53spec :: Spec
56spec = do 54spec = 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