From 3ec31c1ddc3fe88e73c3b8f454802d78d3a63260 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <Yann.Esposito@gmail.com>
Date: Thu, 16 Aug 2012 01:11:50 +0200
Subject: [PATCH] Created a test that pass

---
 tests/HomeTest.hs | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/tests/HomeTest.hs b/tests/HomeTest.hs
index 17c9e6d..faca2ba 100644
--- a/tests/HomeTest.hs
+++ b/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"