khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-30 01:24:29 +03:00
Code Issues Projects Releases Wiki Activity

Update tests along with deprecations.

Browse Source
This commit is contained in:
Kei Hibino 2016-02-12 20:50:58 +09:00
parent 2df540041b
commit e71d2ca431
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
relational-query/test/Model.hs
View File

@ -11,21 +11,21 @@ import Database.Relational.Query (defaultConfig)
import Database.Relational.Query.TH (defineTableDefault, makeRelationalRecordDefault, defineScalarDegree) import Database.Relational.Query.TH (defineTableDefault, makeRelationalRecordDefault, defineScalarDegree)
$(defineTableDefault defaultConfig "TEST" "set_a" $(defineTable defaultConfig "TEST" "set_a"
[ ("int_a0" , [t| Int32 |]) [ ("int_a0" , [t| Int32 |])
, ("str_a1" , [t| String |]) , ("str_a1" , [t| String |])
, ("str_a2" , [t| String |]) ] , ("str_a2" , [t| String |]) ]
[] [0] $ Just 0) [] [0] $ Just 0)
$(defineTableDefault defaultConfig "TEST" "set_b" $(defineTable defaultConfig "TEST" "set_b"
[ ("int_b0" , [t| Int32 |]) [ ("int_b0" , [t| Int32 |])
, ("may_str_b1" , [t| Maybe String |]) , ("may_str_b1" , [t| Maybe String |])
, ("str_b2" , [t| String |]) ] , ("str_b2" , [t| String |]) ]
[] [0] $ Just 0) [] [0] $ Just 0)
$(defineTableDefault defaultConfig "TEST" "set_c" $(defineTable defaultConfig "TEST" "set_c"
[ ("int_c0" , [t| Int32 |]) [ ("int_c0" , [t| Int32 |])
, ("str_c1" , [t| String |]) , ("str_c1" , [t| String |])
, ("int_c2" , [t| Int64 |]) , ("int_c2" , [t| Int64 |])
@ -33,7 +33,7 @@ $(defineTableDefault defaultConfig "TEST" "set_c"
[] [0] $ Just 0) [] [0] $ Just 0)
$(defineTableDefault defaultConfig "TEST" "set_i" $(defineTable defaultConfig "TEST" "set_i"
[ ("int_i0" , [t| Int32 |]) ] [ ("int_i0" , [t| Int32 |]) ]
[] [0] $ Just 0) [] [0] $ Just 0)