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

remove failing test with bad behavior

Browse Source
This commit is contained in:
parsonsmatt 2021-05-20 10:20:10 -06:00
parent b5c0d84cad
commit 79b4ade4a5
2 changed files with 1 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Database/Esqueleto/Internal/Internal.hs
View File

@ -3003,7 +3003,7 @@ makeGroupBy info (GroupBy fields) = first ("\nGROUP BY " <>) build
match :: SomeValue -> (TLB.Builder, [PersistValue]) match :: SomeValue -> (TLB.Builder, [PersistValue])
match (SomeValue (ERaw _ f)) = f info match (SomeValue (ERaw _ f)) = f info
match (SomeValue (ECompositeKey f)) = (mconcat $ f info, mempty) match (SomeValue (ECompositeKey f)) = (uncommas $ f info, mempty)
match (SomeValue (EAliasedValue i _)) = aliasedValueIdentToRawSql i info match (SomeValue (EAliasedValue i _)) = aliasedValueIdentToRawSql i info
match (SomeValue (EValueReference i i')) = valueReferenceToRawSql i i' info match (SomeValue (EValueReference i i')) = valueReferenceToRawSql i i' info

20
test/PostgreSQL/Test.hs
View File

@ -1423,26 +1423,6 @@ main = do
testJSONInsertions testJSONInsertions
testJSONOperators testJSONOperators
testLateralQuery testLateralQuery
testUpdateWithExperimental
testUpdateWithExperimental :: Spec
testUpdateWithExperimental = fdescribe "Update/Experimental" $ do
it "works" $ do
run $ do
p1k <- insert p1
updateRethrowingQuery $ \p -> do
(p0 :& p1) <- Experimental.from $
Table @Person
`InnerJoin`
Table @Person
`Experimental.on` do
\(p0 :& p1) ->
p0 ^. PersonName ==. p1 ^. PersonName
set p [ PersonName =. val "asdf" ]
where_ $ p0 ^. PersonName ==. p ^. PersonName
run, runSilent, runVerbose :: Run run, runSilent, runVerbose :: Run
runSilent act = runNoLoggingT $ run_worker act runSilent act = runNoLoggingT $ run_worker act