[pg-cvs] CVS update: pg/pg-tests.lisp

Eric Marsden emarsden at common-lisp.net
Sun Jul 17 13:49:44 UTC 2005

Update of /project/pg/cvsroot/pg
In directory common-lisp.net:/tmp/cvs-serv479

Modified Files:
Log Message:
Minor fix to tests for PostgreSQL 8.0: the MONEY type is deprecated.

Date: Sun Jul 17 15:49:43 2005
Author: emarsden

Index: pg/pg-tests.lisp
diff -u pg/pg-tests.lisp:1.9 pg/pg-tests.lisp:1.10
--- pg/pg-tests.lisp:1.9	Tue Sep  7 14:52:19 2004
+++ pg/pg-tests.lisp	Sun Jul 17 15:49:43 2005
@@ -10,7 +10,8 @@
 (defpackage :pg-tests
   (:use :cl
-        #+cmu :fwrappers))
+        #+cmu :fwrappers)
+  (:export #:test))
 (in-package :pg-tests)
 (defmacro with-pg-connection/2 ((con &rest open-args) &body body)
@@ -387,8 +388,8 @@
       ;; client encoding supported since PostgreSQL v7.1
       (format t "Client encoding is ~A~%" (pg-client-encoding conn))
       (format t "Date style is ~A~%" (pg-date-style conn))
-      (let ((r2 (pg-exec conn "CREATE TABLE pgltest (a int, b float, c money)"))
-            (r3 (pg-exec conn "INSERT INTO pgltest VALUES (3, -1234.5e67, '$123.45')"))
+      (let ((r2 (pg-exec conn "CREATE TABLE pgltest (a int, b float, c numeric)"))
+            (r3 (pg-exec conn "INSERT INTO pgltest VALUES (3, -1234.5e67, 123.45)"))
             (r4 (pg-exec conn "DROP TABLE pgltest")))
         (format t "~%==============================================~%")
         (format t "status of CREATE is ~s~%" (pg-result r2 :status))

More information about the Pg-cvs mailing list