;;;; 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
;;;;
(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")
-
+
))