cl-postgres.asd

   1 (defpackage :cl-postgres-system
   2   (:use :common-lisp :asdf))
   3 (in-package :cl-postgres-system)
   4
   5 ;; Change this to enable/disable unicode manually (mind that it won't
   6 ;; work unless your implementation supports it).
   7 (defparameter *unicode*
   8   #+(or sb-unicode unicode ics openmcl-unicode-strings) t
   9   #-(or sb-unicode unicode ics openmcl-unicode-strings) nil)
  10 (defparameter *string-file* (if *unicode* "strings-utf-8" "strings-ascii"))
  11
  12 (defsystem :cl-postgres
  13   :depends-on (:md5 :usocket :ieee-floats . #.(if *unicode* '(:trivial-utf-8)))
  14   :components
  15   ((:module :cl-postgres
  16             :components ((:file "package")
  17                          (:file "errors" :depends-on ("package"))
  18                          (:file "sql-string" :depends-on ("package"))
  19                          (:file #.*string-file* :depends-on ("package"))
  20                          (:file "communicate" :depends-on (#.*string-file* "sql-string"))
  21                          (:file "messages" :depends-on ("communicate"))
  22                          (:file "interpret" :depends-on ("communicate"))
  23                          (:file "protocol" :depends-on ("interpret" "messages" "errors"))
  24                          (:file "public" :depends-on ("protocol"))))))
  25
  26 (defsystem :cl-postgres-tests
  27   :depends-on (:cl-postgres :fiveam :simple-date)
  28   :components
  29   ((:module :cl-postgres
  30             :components ((:file "tests")))))
  31
  32 (defmethod perform ((op asdf:test-op) (system (eql (find-system :cl-postgres))))
  33   (asdf:oos 'asdf:load-op :cl-postgres-tests)
  34   (funcall (intern (string :prompt-connection) (string :cl-postgres-tests)))
  35   (funcall (intern (string :run!) (string :it.bese.FiveAM)) :cl-postgres))