r9364: Various fixes from CommonSQL Tutorial.

[clsql.git] / tests / test-basic.lisp

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 6a27fdd7de0d5f1f7883bfbf2d2044235dd184d0..598879bd1aca96e01aa2e1eb0b498de7979d0fe1 100644 (file)
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -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