X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-internal.lisp;h=92e7ff7e73767a2f93b886facf1217e14b7a29ff;hp=a67cc874d416f3fb074d9bbe0df16e6ba50136dc;hb=refs%2Ftags%2Fv3.8.6;hpb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75 diff --git a/tests/test-internal.lisp b/tests/test-internal.lisp index a67cc87..92e7ff7 100644 --- a/tests/test-internal.lisp +++ b/tests/test-internal.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Created: May 2004 ;;;; -;;;; $Id: test-basic.lisp 9450 2004-05-23 10:51:02Z kevin $ +;;;; $Id$ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg ;;;; @@ -21,24 +21,24 @@ (setq *rt-internal* '( (deftest :int/convert/1 - (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR") + (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR") "SELECT FOO FROM BAR") - + (deftest :int/convert/2 - (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=?") + (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=?") "SELECT FOO FROM BAR WHERE ID=$1") - + (deftest :int/convert/3 - (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM \"BAR\" WHERE ID=? AND CODE=?") + (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM \"BAR\" WHERE ID=? AND CODE=?") "SELECT FOO FROM \"BAR\" WHERE ID=$1 AND CODE=$2") - + (deftest :int/convert/4 - (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=?") + (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=?") "SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=$1") - + (deftest :int/convert/5 - (clsql-sys::prepared-sql-to-postgresql-sql "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=?") + (clsql-sys::prepared-sql-to-postgresql-sql "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=?") "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=$1") - + ))