测试 Yesod 处理程序 - 示例

Question

我花了几个小时试图获得一个用于测试 Yesod 处理程序的基本测试框架。我还有点麻烦。查看完整的工作示例会很有用，其中包括与数据库的交互。

有人可以指导我查看网络上的任何示例吗？理想情况下是一个开源 yesod 项目，这样我就可以看到完整的脚手架。我从不同来源找到了一些点点滴滴，但到目前为止，它们对我的帮助不大。

Answer 1

我不认为它们是特别好的测试用例(有很多重复并且数据库不会在测试用例之间自动删除)，但你可以看看 these specs我为this website做了.整个项目的开源on Github .

这是一个示例:

homeSpecs :: Spec
homeSpecs =
    ydescribe "These are some example tests" $ do

        yit "loads the index and checks it looks right" $ do
            _ <- runDB $ rawExecute "TRUNCATE TABLE hack_day, project;" []
            get HackDayR
            statusIs 200
            htmlAnyContain "h2" "New Hackday"

        yit "shows the current hackday" $ do
            _ <- runDB $ rawExecute "TRUNCATE TABLE hack_day, project;" []
            currentTime <- liftIO $ getCurrentTime
            _ <- runDB $ insert $ HackDay { hackDayTitle = "testTitle"
                                          , hackDayCreated = currentTime
                                          , hackDayVotingClosed = False }
            get HackDayR
            htmlAllContain ".currentHackday" "testTitle"