X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-basic.lisp;h=598879bd1aca96e01aa2e1eb0b498de7979d0fe1;hb=0298f640eee047a87b675c6c55ca895017bf9a9f;hp=35b39213e22d4c2d8111c0c93340f31688c07dcb;hpb=6684280691d01cc6d761f24288f9ea80d77bca29;p=clsql.git

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 35b3921..598879b 100644
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -3,7 +3,7 @@
 ;;;; FILE IDENTIFICATION
 ;;;;
 ;;;; Name:    test-basic.lisp
-;;;; Purpose: Tests for clsql-base and result types
+;;;; Purpose: Tests for clsql string-based queries and result types
 ;;;; Author:  Kevin M. Rosenberg
 ;;;; Created: Mar 2002
 ;;;;
@@ -29,9 +29,9 @@
       (clsql:execute-command
        (format nil "INSERT INTO TYPE_TABLE VALUES (~a,~a,~a,'~a')"
 	       test-int
-	       (clsql-base:number-to-sql-string test-flt)
+	       (clsql-sys:number-to-sql-string test-flt)
 	       (transform-bigint-1 test-int)
-	       (clsql-base:number-to-sql-string test-flt)
+	       (clsql-sys:number-to-sql-string test-flt)
 	       )))))
 
 (defun test-basic-forms ()
@@ -109,7 +109,7 @@
 
     (deftest :BASIC/MAP/1
 	(let ((results '())
-	      (rows (map-query 'vector #'list "select * from TYPE_TABLE" 
+	      (rows (map-query 'vector #'identity "select * from TYPE_TABLE" 
 			       :result-types nil)))
 	  (declare (type (simple-array list (*)) rows))
 	  (dotimes (i (length rows) results)
@@ -128,7 +128,7 @@
     
     (deftest :BASIC/MAP/2
 	(let ((results '())
-	      (rows (map-query 'list #'list "select * from TYPE_TABLE" 
+	      (rows (map-query 'list #'identity "select * from TYPE_TABLE" 
 			       :result-types nil)))
 	  (dotimes (i (length rows) results)
 	    (push
@@ -146,7 +146,7 @@
     
     (deftest :BASIC/MAP/3
 	    (let ((results '())
-	      (rows (map-query 'list #'list "select * from TYPE_TABLE" 
+	      (rows (map-query 'list #'identity "select * from TYPE_TABLE" 
 			       :result-types :auto)))
 	      (dotimes (i (length rows) results)
 		(push