ddd/airgql
ddd/airgql
1
Fork 0
mirror of https://github.com/Airsequel/AirGQL.git synced 2025-07-07 10:49:32 +02: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"
, errHaskellType = "String"
, 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
-- https://github.com/JakeWheat/simple-sql-parser/issues/27
& replaceWithSpace "if not exists" ""
-- TOOD: Remove after
-- TODO: Remove after
-- https://github.com/JakeWheat/simple-sql-parser/issues/37
& replaceCaseInsensitive "insert or abort " "insert "
& replaceCaseInsensitive "insert or fail " "insert "
@ -1198,7 +1198,7 @@ sqlite =
, "nothing"
, "notnull"
, -- 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"
"nulls"
, "of"

6
tests/Spec.hs
View file

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