ddd/airgql
ddd/airgql
1
Fork 0
mirror of https://github.com/Airsequel/AirGQL.git synced 2025-07-23 00:24:03 +03:00
Code Activity

Fix tests after previous change

Browse source
This commit is contained in:
prescientmoon 2024-05-27 14:18:20 +02:00
parent 3cef611c85
commit ad679d32ca
2 changed files with 6 additions and 6 deletions
source/AirGQL
Lib.hs
tests
Spec.hs

6
source/AirGQL/Lib.hs
View file

@ -135,7 +135,7 @@ instance FromField ObjectType where
{ errSQLType = "Object Type" { errSQLType = "Object Type"
, errHaskellType = "String" , errHaskellType = "String"
, errMessage = , errMessage =
"\"" <> show sqlData <> "\" is not a vaild object type" "\"" <> show sqlData <> "\" is not a valid object type"
} }
] ]
@ -999,7 +999,7 @@ sanitizeSql sql =
-- TODO: Remove after -- TODO: Remove after
-- https://github.com/JakeWheat/simple-sql-parser/issues/27 -- https://github.com/JakeWheat/simple-sql-parser/issues/27
& replaceWithSpace "if not exists" "" & replaceWithSpace "if not exists" ""
-- TOOD: Remove after -- TODO: Remove after
-- https://github.com/JakeWheat/simple-sql-parser/issues/37 -- https://github.com/JakeWheat/simple-sql-parser/issues/37
& replaceCaseInsensitive "insert or abort " "insert " & replaceCaseInsensitive "insert or abort " "insert "
& replaceCaseInsensitive "insert or fail " "insert " & replaceCaseInsensitive "insert or fail " "insert "
@ -1198,7 +1198,7 @@ sqlite =
, "nothing" , "nothing"
, "notnull" , "notnull"
, -- although "null" is on the official list of keywords, adding it here , -- although "null" is on the official list of keywords, adding it here
-- seems to break "select NULL as ..." statemenets -- seems to break "select NULL as ..." statements
-- , "null" -- , "null"
"nulls" "nulls"
, "of" , "of"

6
tests/Spec.hs
View file

@ -271,8 +271,8 @@ testSuite = do
, datatype = "INTEGER" , datatype = "INTEGER"
, datatype_gql = Just $ stringToGqlTypeName "Int" , datatype_gql = Just $ stringToGqlTypeName "Int"
, select_options = Nothing , select_options = Nothing
, notnull = False , notnull = True
, isUnique = False , isUnique = True
, isOmittable = True , isOmittable = True
, isGenerated = False , isGenerated = False
, dflt_value = Nothing , dflt_value = Nothing
@ -477,7 +477,7 @@ testSuite = do
, datatype_gql = Just $ stringToGqlTypeName "Int" , datatype_gql = Just $ stringToGqlTypeName "Int"
, select_options = Nothing , select_options = Nothing
, notnull = False , notnull = False
, isUnique = False , isUnique = True
, isOmittable = True , isOmittable = True
, isGenerated = False , isGenerated = False
, dflt_value = Nothing , dflt_value = Nothing