From 41c5da5bdc34fdc6ea25928ea0f94fcf0ff5c6e3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 4 May 2004 18:52:39 +0000 Subject: [PATCH] r9222: new debian package --- ChangeLog | 1 + debian/changelog | 6 ++++++ tests/test-basic.lisp | 16 ++++++++-------- tests/test-oodml.lisp | 14 +++----------- 4 files changed, 18 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index a62b6bb..2059e9d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,5 @@ 4 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) + * Version 2.10.9 * sql/objects.lisp: added derived type specifier for universal time. * sql/package.lisp: added #:universal-time to clsql-sys exports. * tests/test-oodml.lisp: added test for translation of boolean slots diff --git a/debian/changelog b/debian/changelog index 82217ba..cc4b923 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (2.10.9-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 4 May 2004 12:52:19 -0600 + cl-sql (2.10.8-1) unstable; urgency=low * New upstream diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp index 85874a4..aff45cb 100644 --- a/tests/test-basic.lisp +++ b/tests/test-basic.lisp @@ -38,7 +38,7 @@ (append (test-basic-forms-untyped) '( - (deftest BASIC/TYPE/1 + (deftest :BASIC/TYPE/1 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types :auto) results) @@ -55,7 +55,7 @@ ((t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t))) - (deftest BASIC/TYPE/2 + (deftest :BASIC/TYPE/2 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types :auto) results) @@ -71,14 +71,14 @@ ))) (defun test-basic-forms-untyped () - '((deftest BASIC/SELECT/1 + '((deftest :BASIC/SELECT/1 (let ((rows (query "select * from TYPE_TABLE" :result-types :auto))) (values (length rows) (length (car rows)))) 11 4) - (deftest BASIC/SELECT/2 + (deftest :BASIC/SELECT/2 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types nil) results) @@ -90,7 +90,7 @@ results)))) ((t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t) (t t t t))) - (deftest BASIC/SELECT/3 + (deftest :BASIC/SELECT/3 (let ((results '())) (dolist (row (query "select * from TYPE_TABLE" :result-types nil) results) @@ -104,7 +104,7 @@ results)))) ((t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t) (t t))) - (deftest BASIC/MAP/1 + (deftest :BASIC/MAP/1 (let ((results '()) (rows (map-query 'vector #'list "select * from TYPE_TABLE" :result-types nil))) @@ -123,7 +123,7 @@ results))) ((t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t))) - (deftest BASIC/MAP/2 + (deftest :BASIC/MAP/2 (let ((results '()) (rows (map-query 'list #'list "select * from TYPE_TABLE" :result-types nil))) @@ -141,7 +141,7 @@ results))) ((t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t) (t 4 t t))) - (deftest BASIC/DO/1 + (deftest :BASIC/DO/1 (let ((results '())) (do-query ((int float bigint str) "select * from TYPE_TABLE") (push (list (double-float-equal diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp index 9969abd..a3396e5 100644 --- a/tests/test-oodml.lisp +++ b/tests/test-oodml.lisp @@ -59,14 +59,6 @@ 3) (deftest :oodml/select/6 - (slot-value (caar (clsql:select 'employee :where [= 1 [emplid]])) 'married) - t) - -(deftest :oodml/select/7 - (slot-value (caar (clsql:select 'employee :where [= 4 [emplid]])) 'married) - nil) - -(deftest :oodml/select/8 (let ((a (caar (clsql:select 'address :where [= 1 [emplid]])))) (values (slot-value a 'street-number) @@ -75,7 +67,7 @@ (slot-value a 'postal-code))) 10 "Park Place" "Leningrad" 123) -(deftest :oodml/select/9 +(deftest :oodml/select/7 (let ((a (caar (clsql:select 'address :where [= 2 [emplid]])))) (values (slot-value a 'street-number) @@ -84,10 +76,10 @@ (slot-value a 'postal-code))) nil "" "no city" 0) -(deftest :oodml/select/10 +(deftest :oodml/select/8 (mapcar #'(lambda (e) (slot-value e 'married)) (clsql:select 'employee :flatp t :order-by [emplid])) - (T T T NIL NIL NIL NIL NIL NIL NIL)) + (t t t nil nil nil nil nil nil nil)) ;; tests update-records-from-instance (deftest :oodml/update-records/1 -- 2.34.1