khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-08 14:26:33 +03:00
Code Issues Projects Releases Wiki Activity

Update test-set.

Browse Source
This commit is contained in:
Kei Hibino 2016-01-03 23:16:58 +09:00
parent 002bbcbdc0
commit 7c0b346072
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
relational-query/test/sqlsEq.hs
View File

@ -77,6 +77,13 @@ assignX = derivedUpdate $ \_proj -> do
intA0' <-# value (0 :: Int32)
return unitPlaceHolder
registerX :: Insert ()
registerX = derivedInsertValue $ do
intA0' <-# value 1
strA1' <-# value "Hello"
strA2' <-# value "World"
return unitPlaceHolder
monadic :: [Test]
monadic =
[ eqProp "query" queryX
@ -103,6 +110,8 @@ monadic =
"SELECT ALL T0.int_a0 AS f0 FROM TEST.set_a T0"
, eqProp "update" assignX
"UPDATE TEST.set_a SET int_a0 = 0"
, eqProp "insert" registerX
"INSERT INTO TEST.set_a (int_a0, str_a1, str_a2) VALUES (1, 'Hello', 'World')"
]
_p_monadic :: IO ()