Skip to content

Commit

Permalink
Run array_agg tests on PostgreSQL only.
Browse files Browse the repository at this point in the history
  • Loading branch information
meteficha committed Sep 14, 2015
1 parent b09aab1 commit 79be9a2
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions persistent-test/PersistentTest.hs
Expand Up @@ -895,6 +895,7 @@ specs = describe "persistent" $ do
it "tilde" $ void (return $! Strict 5 (error "foo") 5 :: IO Strict)
it "blank" $ (return $! Strict 5 5 (error "foo")) `shouldThrow` anyErrorCall

#ifdef WITH_POSTGRESQL
describe "rawSql/array_agg" $ do
let runArrayAggTest dbField expected = db $ do
void $ insertMany
Expand All @@ -911,6 +912,7 @@ specs = describe "persistent" $ do

it "works for [Text]" $ runArrayAggTest "ident" ["a", "c", "e", "g" :: Text]
it "works for [Maybe Text]" $ runArrayAggTest "password" [Nothing, Just "b", Just "d", Just "h" :: Maybe Text]
#endif

-- | Reverses the order of the fields of an entity. Used to test
-- @??@ placeholders of 'rawSql'.
Expand Down

0 comments on commit 79be9a2

Please sign in to comment.