projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 5.0.3: Full foreign string internationalization support
[clsql.git]
/
tests
/
test-internal.lisp
diff --git
a/tests/test-internal.lisp
b/tests/test-internal.lisp
index a67cc874d416f3fb074d9bbe0df16e6ba50136dc..adfab8a3acebfa9998638182c6a9090b218ec903 100644
(file)
--- a/
tests/test-internal.lisp
+++ b/
tests/test-internal.lisp
@@
-7,9
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Created: May 2004
;;;;
;;;; 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
;;;;
;;;; 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
(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")
"SELECT FOO FROM BAR")
-
+
(deftest :int/convert/2
(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")
"SELECT FOO FROM BAR WHERE ID=$1")
-
+
(deftest :int/convert/3
(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")
"SELECT FOO FROM \"BAR\" WHERE ID=$1 AND CODE=$2")
-
+
(deftest :int/convert/4
(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")
"SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=$1")
-
+
(deftest :int/convert/5
(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")
"SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=$1")
-
+
))
))