git.iko.soy/squeal
on dev help sign in
tests
ce39e5dEitan Chatav
squeel-postgresql/squeel-postgresql.cabal+2
compare with dev
unifiedsplit
@@ -51,8 +51,10 @@ test-suite blockapps-data-test
51 Squeel.PostgreSQL.TypeSpec
51 Squeel.PostgreSQL.TypeSpec
52 Squeel.PostgreSQL.ValueSpec
52 Squeel.PostgreSQL.ValueSpec
53 build-depends: base
53 build-depends: base
54+ , Boolean
54 , hspec
55 , hspec
55 , squeel-postgresql
56 , squeel-postgresql
57+ , vinyl
56
58
57source-repository head
59source-repository head
58 type: git
60 type: git
squeel-postgresql/test/Squeel/PostgreSQL/QuerySpec.hs+34−1
@@ -1,6 +1,39 @@
1+{-# LANGUAGE
2+ DataKinds
3+ , OverloadedLabels
4+ , OverloadedStrings
5+#-}
6+
1module Squeel.PostgreSQL.QuerySpec where
7module Squeel.PostgreSQL.QuerySpec where
2
8
9+import Data.Boolean
10+import Data.Vinyl
3import Test.Hspec
11import Test.Hspec
4
12
13+import Squeel.PostgreSQL.Query
14+import Squeel.PostgreSQL.Type
15+
5spec :: Spec
16spec :: Spec
6−spec = return ()
17+spec = do
18+ it "correctly renders a simple SELECT query" $ do
19+ renderQuery (select (sumAndCol1 `from` (table1 `where_` true)))
20+ `shouldBe`
21+ "SELECT col1+col2 AS sum, col1 AS col1 FROM table1 WHERE TRUE"
22+ it "combines WHEREs using AND" $ do
23+ renderQuery (select (sumAndCol1 `from` (table1 `where_` true `where_` false)))
24+ `shouldBe`
25+ "SELECT col1+col2 AS sum, col1 AS col1 FROM table1 WHERE TRUE AND FALSE"
26+
27+type Columns =
28+ '[ '("col1", 'PGInt4)
29+ , '("col2", 'PGInt4)
30+ ]
31+
32+sumAndCol1 :: Projection '[] Columns
33+ '[ '("sum", 'PGInt4)
34+ , '("col1", 'PGInt4)
35+ ]
36+sumAndCol1 = project ((#col1 + #col2) `As` #sum :& #col1 :& RNil)
37+
38+table1 :: Relation '[] '[ '("table1", Columns)] Columns
39+table1 = #table1