+(defun test-output-sql/sql-ident-table ()
+ (let ((tests `((,(make-instance 'sql-ident-table :name :foo) "FOO")
+ (,(make-instance 'sql-ident-table :name :foo-bar) "FOO_BAR")
+ (,(make-instance 'sql-ident-table :name "foo") "\"foo\"")
+ (,(make-instance 'sql-ident-table :name '|foo bar|) "\"foo bar\"")
+ (,(make-instance 'sql-ident-table :name :foo :table-alias :bar) "FOO BAR" )
+ (,(make-instance 'sql-ident-table :name :foo_bar :table-alias :bar-bast) "FOO_BAR BAR_BAST")
+ (,(make-instance 'sql-ident-table :name "foo" :table-alias "Bar") "\"foo\" \"Bar\"")
+ (,(make-instance 'sql-ident-table :name '|foo bar| :table-alias :bast) "\"foo bar\" BAST"))))
+ (loop for (test expected-result) in tests
+ for test-out = (with-output-to-string (*sql-stream*) (output-sql test nil))
+ do (assert (string-equal test-out expected-result)
+ (test test-out expected-result)
+ "Test:~s didnt match ~S"
+ test-out expected-result))))