From 9e17810329dbfa0adc0ee3042556fbd13f810d5c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Mon, 18 Jul 2016 12:22:23 +0200
Subject: test for safer deletion

---
 server/test/Thermoprint/ServerSpec.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'server/test/Thermoprint/ServerSpec.hs')

diff --git a/server/test/Thermoprint/ServerSpec.hs b/server/test/Thermoprint/ServerSpec.hs
index 8af210d..334f785 100644
--- a/server/test/Thermoprint/ServerSpec.hs
+++ b/server/test/Thermoprint/ServerSpec.hs
@@ -42,6 +42,7 @@ import           System.IO.Temp
 import qualified Data.Text as T
 
 import           Network.Wai.Handler.Warp (defaultSettings, setBeforeMainLoop)
+import           Network.HTTP.Types.Status (Status(..))
 
 import qualified Data.Map as Map
 
@@ -153,7 +154,11 @@ spec = withSetup $ do
     (atomically . takeTMVar $ outputChan printer) `shouldReturn` p
     draftDelete dId
     drafts `shouldReturn` []
+    draftReplace dId Nothing p `shouldThrow` is404
   where
     Client{..} = mkClient' $ BaseUrl Http "localhost" 3000 ""
+    is404 :: ServantError -> Bool
+    is404 e@(FailureResponse {}) = statusCode (responseStatus e) == 404
+    is404 _ = False
     
     
-- 
cgit v1.2.3