postmodern.asd

   1 (defpackage :postmodern-system
   2   (:use :common-lisp :asdf)
   3   (:export :*threads*))
   4 (in-package :postmodern-system)
   5
   6 ;; Change this to manually turn threading support on or off.
   7 (eval-when (:compile-toplevel :load-toplevel :execute)
   8   #+(or allegro armedbear cmu corman (and digitool ccl-5.1)
   9         ecl lispworks openmcl sbcl)
  10   (pushnew :postmodern-thread-safe *features*)
  11
  12   #+(or allegro clisp ecl lispworks mcl openmcl cmu sbcl)
  13   (pushnew :postmodern-use-mop *features*))
  14
  15 (defsystem :postmodern
  16   :depends-on (:cl-postgres :s-sql #+postmodern-use-mop :closer-mop
  17                             #+postmodern-thread-safe :bordeaux-threads)
  18   :components
  19   ((:module :postmodern
  20             :components ((:file "package")
  21                          (:file "connect" :depends-on ("package"))
  22                          (:file "query" :depends-on ("connect"))
  23                          (:file "prepare" :depends-on ("query"))
  24                          (:file "util" :depends-on ("query"))
  25                          #+postmodern-use-mop
  26                          (:file "table" :depends-on ("util"))
  27                          (:file "deftable" :depends-on
  28                                 ("query" #+postmodern-use-mop "table"))))))
  29
  30 (defsystem :postmodern-tests
  31   :depends-on (:postmodern :fiveam)
  32   :components
  33   ((:module :postmodern
  34             :components ((:file "tests")))))
  35
  36 (defmethod perform ((op asdf:test-op) (system (eql (find-system :postmodern))))
  37   (asdf:oos 'asdf:load-op :postmodern)
  38   (asdf:oos 'asdf:load-op :cl-postgres-tests)
  39   (asdf:oos 'asdf:load-op :postmodern-tests)
  40   (funcall (intern (string :prompt-connection) (string :cl-postgres-tests))
  41            (eval (intern (string :*test-connection*) (string :postmodern-tests))))
  42   (funcall (intern (string :run!) (string :it.bese.FiveAM)) :postmodern))