Changeset cffi,9

Timestamp:

08/06/2008 11:15:38 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

cffi

revision id:

dsowen@fugue88.ws-20080806231538-hge77c9rgtyjk3ra

Message:

Added simple test for postgresql

Location:

cffi/src/test

Files:

• test-postgresql.lisp (added)
• test-main.lisp (modified) (1 diff)

cffi/src/test/test-main.lisp

@@ -44 +44 @@
 
 
-(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"))