在我的yesod测试中,我希望能够在测试过程中修改db中的记录。
这是我想出的代码
yit "post is created by authorized user" $ do
request $ do
addPostParam "ident" "dummy"
setMethod "POST"
setUrl ("http://localhost:3000/auth/page/dummy" :: Text)
update 0 [UserAuthorized =. True]
postBody PostR (encode $ object [
"body" .= ("test post" :: Text),
"title" .= ("test post" :: Text),
"coverImage" .= ("test post" :: Text),
"author" .= (0 :: Int)
])
statusIs 200
这失败了,错误
• Couldn't match expected type ‘IO a0’
with actual type ‘ReaderT backend0 m0 ()’
• In the second argument of ‘($)’, namely
‘update 0 [UserAuthorized =. True]’
In a stmt of a 'do' block:
runIO $ update 0 [UserAuthorized =. True]
In the expression:
do { settings <- runIO
$ loadYamlSettings
["config/test-settings.yml", "config/settings.yml"] [] useEnv;
foundation <- runIO $ makeFoundation settings;
yesodSpec foundation $ do { ydescribe "Auth" $ do { ... } };
runIO $ update 0 [UserAuthorized =. True];
.... }
我可以说这是因为update
返回m ()
而不是像YesodExample site ()
,request
和postBody
那样的statusIs
。
我怎样才能在此测试中进行数据库更新?
你需要使用runDB
函数。即:
runDB $ update 0 [UserAuthorized =. True]
这有两个问题,第一个是Sibi指出的是我需要runDB
第二个是你不能只用一个整数查找记录。
为了实现这一点,我使用了以下代码
runDB $ do
(first :: Maybe (Entity User)) <- selectFirst [] []
case first of
Nothing -> pure () -- handle the case when the table is empty
Just (Entity k _) -> update k [UserAuthorized =. True]
这个发现是数据库中的记录,然后更新它。修改(first :: Maybe (Entity User)) <- selectFirst [] []
以选择要更新的记录。