r9222: new debian package

diff --git a/ChangeLog b/ChangeLog
index a62b6bbcbf30ef2feb11be9309e4737cea536924..2059e9d17c1421b97bfab70636b289d07419ba40 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,5 @@
 4 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) 
 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 
        * 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 82217bafa7ac94e88f6f95a87a58a47799d216ef..cc4b92372ff95a94fadfc5a946997a079bb1b700 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (2.10.9-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue,  4 May 2004 12:52:19 -0600
+

 cl-sql (2.10.8-1) unstable; urgency=low
 
   * New upstream
 cl-sql (2.10.8-1) unstable; urgency=low
 
   * New upstream

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 85874a4d4ed3015ed25b2b035117b5666d0de9cd..aff45cb6ffab18cabf7fd5b8c50185aea3446312 100644 (file)
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -38,7 +38,7 @@
   (append
    (test-basic-forms-untyped)
    '(
   (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)
        (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)))
     
 
       ((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)
         (let ((results '()))
           (dolist (row (query "select * from TYPE_TABLE" :result-types :auto)
                     results)


@@ -71,14 +71,14 @@
      )))
 
 (defun test-basic-forms-untyped ()
      )))
 
 (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)
     
        (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)
        (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)))
     
                    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)
        (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)))
 
                    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)))
        (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)))
     
             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)))
        (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)))
 
             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 
        (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 9969abde55dc504ac479eedd358a7eda907a9730..a3396e5ef3c95bcefdfd824dce8babfa7794c868 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -59,14 +59,6 @@
   3)
 
 (deftest :oodml/select/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)
     (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)
 
        (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)
     (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)
 
        (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]))
     (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
 
 ;; tests update-records-from-instance 
 (deftest :oodml/update-records/1