From: Kevin M. Rosenberg Date: Wed, 5 May 2004 23:43:47 +0000 (+0000) Subject: r9254: 4 May 2004 Kevin Rosenberg (kevin@rosenberg.net) X-Git-Tag: v3.8.6~508 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=ec671b89836aaf460308b4b511758c74e8732c62 r9254: 4 May 2004 Kevin Rosenberg (kevin@rosenberg.net) * tests/test-syntax.lisp: Add syntax tests for SQL-OBJECT-QUERY --- diff --git a/ChangeLog b/ChangeLog index 5139287..173fce3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +4 May 2004 Kevin Rosenberg (kevin@rosenberg.net) + * tests/test-syntax.lisp: Add syntax tests for SQL-OBJECT-QUERY + 6 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) * sql/objects.lisp: replace *update-records-on-make-instance* with *db-auto-sync* which also controls both automatic creation of diff --git a/tests/test-syntax.lisp b/tests/test-syntax.lisp index 9de62fe..2329a6c 100644 --- a/tests/test-syntax.lisp +++ b/tests/test-syntax.lisp @@ -118,6 +118,13 @@ (clsql:sql [select [count [*]] :from [emp]]) "SELECT COUNT(*) FROM EMP") +(deftest :syntax/query/5 + (string-downcase (clsql:sql [select 'employee])) + "(employee)") + +(deftest :syntax/query/6 + (string-downcase (clsql:sql [select 'employee 'address])) + "(employee address)") (deftest :syntax/expression1 (clsql:sql