Update of /project/pg/cvsroot/pg In directory common-lisp.net:/tmp/cvs-serv479
Modified Files: pg-tests.lisp 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 :pg - #+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))