Index: cffi/src/test/test-postgresql.lisp
===================================================================
--- cffi/src/test/test-postgresql.lisp	(revision cffi,9)
+++ cffi/src/test/test-postgresql.lisp	(revision cffi,9)
@@ -0,0 +1,14 @@
+;;; -*- Mode: lisp -*-
+
+(in-package :test-plain-odbc)
+
+(export '(run-postgresql-tests))
+
+(defun run-postgresql-tests (conn)
+  (dolist (sym '(pg-test-connection))
+    (pprint sym)
+    (funcall sym conn)))
+
+(defun pg-test-connection (conn)
+  (let ((n (caar (exec-query conn "SELECT 1"))))
+    (assert (= 1 n))))
Index: cffi/src/test/test-main.lisp
===================================================================
--- cffi/src/test/test-main.lisp	(revision cffi,1)
+++ cffi/src/test/test-main.lisp	(revision cffi,9)
@@ -44,5 +44,7 @@
 
 
-(load (merge-pathnames "test-sql-server.lisp" *load-truename*))
-(load (merge-pathnames "test-oracle.lisp" *load-truename*))
-(load (merge-pathnames "test-mysql.lisp"  *load-truename*))
+(flet ((l (filename) (load (merge-pathnames filename *load-truename*))))
+  (l "test-sql-server.lisp")
+  (l "test-oracle.lisp")
+  (l "test-mysql.lisp" )
+  (l "test-postgresql.lisp"))