From bd800a70bc0201a70e673b4cc68d0fed66dfbc67 Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Fri, 27 Jan 2017 02:51:17 +0300
Subject: [PATCH] Fix a 404 test

---
 tests/WebSpec.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/WebSpec.hs b/tests/WebSpec.hs
index 28814d1..0d0554b 100644
--- a/tests/WebSpec.hs
+++ b/tests/WebSpec.hs
@@ -243,7 +243,8 @@ categoryTests = session "categories" $ using [chromeCaps] $ do
       uriPath url `shouldBe` "/haskell"
       checkNotPresent (ByLinkText "Cat 2")
       openPage catURL
-      "body" `shouldHaveText` "Something went wrong"
+      -- TODO: we should have, like, a 404 page
+      "body" `shouldHaveText` "500 - Internal Server Error\npowered by Spock"
 
 itemTests :: Spec
 itemTests = session "items" $ using [chromeCaps] $ do