From 7803cbb10eb1f3e36203ca09a2bfe76368f087ed Mon Sep 17 00:00:00 2001 From: Nubis Date: Tue, 24 Jan 2012 19:29:57 +0800 Subject: [PATCH] deleted old tests module --- yesod/scaffold/Tests.hs.cg | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 yesod/scaffold/Tests.hs.cg diff --git a/yesod/scaffold/Tests.hs.cg b/yesod/scaffold/Tests.hs.cg deleted file mode 100644 index 69e96c24..00000000 --- a/yesod/scaffold/Tests.hs.cg +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE NoMonomorphismRestriction #-} - -module Testing (main) where - -import Import -import Settings -import Yesod -import Yesod.Static -import Yesod.Logger (makeLogger) -import qualified Database.Persist.Base -import Database.Persist.GenericSql (runMigration) -import Yesod.Default.Config -import Yesod.Test -import Application - -main :: IO a -main = do - conf <- loadConfig Testing - logger <- makeLogger - dbconf <- withYamlEnvironment "config/~dbConfigFile~.yml" (appEnv conf) - $ either error return . Database.Persist.Base.loadConfig - s <- static Settings.staticDir - Database.Persist.Base.withPool (dbconf :: Settings.PersistConfig) $ \p -> do - Database.Persist.Base.runPool dbconf ~runMigration~ p - app <- toWaiAppPlain $ ~sitearg~ conf logger s p - runTests app p allTests - -allTests = do - describe "These are some example tests" $ do - it "loads the index and checks it looks right" $ do - doGet_ "." - printBody - statusIs 200 - htmlCount "form" 1 - htmlAllContain "h1" "Welcome to Yesod!" -