X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-internal.lisp;h=adfab8a3acebfa9998638182c6a9090b218ec903;hp=a67cc874d416f3fb074d9bbe0df16e6ba50136dc;hb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3;hpb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75 diff --git a/tests/test-internal.lisp b/tests/test-internal.lisp index a67cc87..adfab8a 100644 --- a/tests/test-internal.lisp +++ b/tests/test-internal.lisp @@ -7,9 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Created: May 2004 ;;;; -;;;; $Id: test-basic.lisp 9450 2004-05-23 10:51:02Z kevin $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg +;;;; This file, part of CLSQL, is Copyright (c) 2004-2010 by Kevin M. Rosenberg ;;;; ;;;; CLSQL users are granted the rights to distribute and use this software ;;;; as governed by the terms of the Lisp Lesser GNU Public License @@ -21,24 +19,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") - + ))