From ec671b89836aaf460308b4b511758c74e8732c62 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 5 May 2004 23:43:47 +0000 Subject: [PATCH] r9254: 4 May 2004 Kevin Rosenberg (kevin@rosenberg.net) * tests/test-syntax.lisp: Add syntax tests for SQL-OBJECT-QUERY --- ChangeLog | 3 +++ tests/test-syntax.lisp | 7 +++++++ 2 files changed, 10 insertions(+) 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 -- 2.34.1