git.iko.soy/project-m36
on master help sign in
WIP add testSelectKeys
616c559AgentM
test/persistent-driver/test.hs+12−1
compare with master
unifiedsplit
@@ -31,7 +31,7 @@ Person
31|]
31|]
32
32
33testList :: Test
33testList :: Test
34−testList = TestList $ map mkInProcessTest [testGetBy, testDelete, testUpdate, testCount, testSelect]
34+testList = TestList $ map mkInProcessTest [testGetBy, testDelete, testUpdate, testCount, testSelect, testSelectKeys]
35
35
36main :: IO ()
36main :: IO ()
37main = do
37main = do
@@ -156,4 +156,15 @@ testSelect = do
156 namesList <- selectList [] []
156 namesList <- selectList [] []
157 liftIO $ assertEqual "select names len" 2 (length (namesList :: [Entity Person]))
157 liftIO $ assertEqual "select names len" 2 (length (namesList :: [Entity Person]))
158
158
159+testSelectKeys :: ReaderT ProjectM36Backend IO ()
160+testSelectKeys = do
161+ let name1 = "Michael"
162+ age1 = 26
163+ name2 = "John"
164+ age2 = 30
165+ m1 <- insert $ Person name1 age1
166+ m2 <- insert $ Person name2 age2
167+ keysList <- selectKeysList [PersonAge ==. age2] []
168+ liftIO $ assertEqual "select keysList len" 1 (length keysList)
169+ liftIO $ assertEqual "select keysList val" m2 (head keysList)
159
170