@@ -31,7 +31,7 @@ Person
3131|]
3232
3333testList :: Test
34−testList = TestList $ map mkInProcessTest [testGetBy, testDelete, testUpdate, testCount, testSelect]
34+testList = TestList $ map mkInProcessTest [testGetBy, testDelete, testUpdate, testCount, testSelect, testSelectKeys]
3535
3636main :: IO ()
3737main = do
@@ -156,4 +156,15 @@ testSelect = do
156156 namesList <- selectList [] []
157157 liftIO $ assertEqual "select names len" 2 (length (namesList :: [Entity Person]))
158158
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)
159170