diff options
| -rw-r--r-- | server/test/Thermoprint/ServerSpec.hs | 12 | ||||
| -rw-r--r-- | server/thermoprint-server.cabal | 2 |
2 files changed, 6 insertions, 8 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 | ||
diff --git a/server/thermoprint-server.cabal b/server/thermoprint-server.cabal index 849d35a..bfd5b9b 100644 --- a/server/thermoprint-server.cabal +++ b/server/thermoprint-server.cabal | |||
| @@ -65,8 +65,6 @@ Test-Suite tests | |||
| 65 | , thermoprint-server -any | 65 | , thermoprint-server -any |
| 66 | , thermoprint-spec -any | 66 | , thermoprint-spec -any |
| 67 | , hspec >=2.2.1 && <3 | 67 | , hspec >=2.2.1 && <3 |
| 68 | , hspec-contrib >=0.3.0 && <1 | ||
| 69 | , HUnit >=1.2.5 && <2 | ||
| 70 | , QuickCheck >=2.8.1 && <3 | 68 | , QuickCheck >=2.8.1 && <3 |
| 71 | , quickcheck-instances >=0.3.11 && <4 | 69 | , quickcheck-instances >=0.3.11 && <4 |
| 72 | , temporary >=1.2.0 && <2 | 70 | , temporary >=1.2.0 && <2 |
