X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-syntax.lisp;h=8d1a86382a668680e53dba26247753cb3941dbe9;hp=cd8d2ba1e4d08604800fe5c20d745b4f1620e472;hb=21ffe5f820036726c6353a16dfb478fb41aa700c;hpb=026988a3144e3ed7f48552b5567c34448fef51bc diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp index cd8d2ba..8d1a863 100644 --- a/tests/test-syntax.lisp +++ b/tests/test-syntax.lisp @@ -50,24 +50,25 @@ "FOO.BAR") (deftest :syntax/ident/3 - (clsql:sql ["foo" bar]) - "FOO.BAR") - -;(deftest :syntax/ident/4 -; (clsql:sql [foo "bar"]) -; "FOO \"bar\"") - -(deftest :syntax/ident/5 (clsql:sql [foo :integer]) "FOO") -(deftest :syntax/ident/6 +(deftest :syntax/ident/4 (clsql:sql [foo bar :integer]) "FOO.BAR") +(deftest :syntax/ident/5 + (clsql:sql [foo "bar"]) + "FOO \"bar\"") + +(deftest :syntax/ident/6 + (clsql:sql ["foo" bar]) + "\"foo\".BAR") + (deftest :syntax/ident/7 (clsql:sql ["foo" bar :integer]) - "FOO.BAR") + "\"foo\".BAR") + (deftest :syntax/subquery/1