starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

Parse constraints not separated by comma

Browse source
This commit is contained in:
Matei Adriel 2023-09-21 02:11:16 +03:00
parent d8b32c0931
commit 51157d502e
No known key found for this signature in database
3 changed files with 34 additions and 6 deletions
tools/Language/SQL/SimpleSQL
SQL2011Schema.lhs

22
tools/Language/SQL/SimpleSQL/SQL2011Schema.lhs
View file

@ -651,6 +651,28 @@ defintely skip
> DefaultReferentialAction DefaultReferentialAction
> ])
> ,(TestStatement ansi2011
> "create table t (a int, b int,\n\
> \ foreign key (a) references u(c)\n\
> \ foreign key (b) references v(d));"
> $ CreateTable [Name Nothing "t"]
> [TableColumnDef $ ColumnDef (Name Nothing "a") (TypeName [Name Nothing "int"]) Nothing []
> ,TableColumnDef $ ColumnDef (Name Nothing "b") (TypeName [Name Nothing "int"]) Nothing []
> ,TableConstraintDef Nothing $
> TableReferencesConstraint
> [Name Nothing "a"]
> [Name Nothing "u"]
> (Just [Name Nothing "c"])
> DefaultReferenceMatch
> DefaultReferentialAction DefaultReferentialAction
> ,TableConstraintDef Nothing $
> TableReferencesConstraint
> [Name Nothing "b"]
> [Name Nothing "v"]
> (Just [Name Nothing "d"])
> DefaultReferenceMatch
> DefaultReferentialAction DefaultReferentialAction
> ])
<references specification> ::=