Created a test that pass

tests/HomeTest.hs

@@ -11,14 +11,4 @@ homeSpecs =
     it "loads the index and checks it looks right" $ do
       get_ "/"
       statusIs 200
-      htmlAllContain "h1" "Hello"
-
-      post "/" $ do
-        addNonce
-        fileByLabel "Choose a file" "tests/main.hs" "text/plain" -- talk about self-reference
-        byLabel "What's on the file?" "Some Content"
-
-      statusIs 200
-      htmlCount ".message" 1
-      htmlAllContain ".message" "Some Content"
-      htmlAllContain ".message" "text/plain"
+      htmlAllContain "h1" "in·man·is"