haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tweaked composite key test to see if we can filter on it's composite pk. We can't, yet

Browse Source
This commit is contained in:
Alberto Valverde 2014-12-23 21:36:54 +01:00
parent 3f31f41a71
commit 965c7a55c7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Test.hs
View File

@ -945,7 +945,9 @@ main = do
Right thePk = keyFromValues [ PersistInt64 $ fromIntegral x Right thePk = keyFromValues [ PersistInt64 $ fromIntegral x
, PersistInt64 $ fromIntegral y] , PersistInt64 $ fromIntegral y]
pPk <- insert p pPk <- insert p
[Entity _ ret] <- select $ from $ return [Entity _ ret] <- select $ from $ \p' -> do
where_ (p'^.PointId ==. val pPk)
return p'
liftIO $ do liftIO $ do
ret `shouldBe` p ret `shouldBe` p
pPk `shouldBe` thePk pPk `shouldBe` thePk