Commit 8cdc5871 authored by Robert Goldman's avatar Robert Goldman
Browse files

Update ASDF definitions.

Move to trivial-backtrace/test per new ASDF.
Tidy up the code for TEST-OP.
parent 3f3e4a19
Loading
Loading
Loading
Loading

trivial-backtrace-test.asd

deleted100644 → 0
+0 −22
Original line number Diff line number Diff line
(defpackage #:trivial-backtrace-test-system (:use #:asdf #:cl))
(in-package #:trivial-backtrace-test-system)

(defsystem trivial-backtrace-test
  :author "Gary Warren King <gwking@metabang.com>"
  :maintainer "Gary Warren King <gwking@metabang.com>"
  :licence "MIT Style License; see file COPYING for details"
  :components ((:module 
		"setup"
		:pathname "test/"
		:components ((:file "packages")
			     (:file "test-setup"
				    :depends-on ("packages"))))
	       (:module 
		"test"
		:pathname "test/"
		:depends-on ("setup")
		:components ((:file "tests"))))  
  :depends-on (:lift :trivial-backtrace))


+25 −11
Original line number Diff line number Diff line
@@ -23,13 +23,27 @@
                 (:file "backtrace")
                 (:file "map-backtrace")
                 (:file "fallback" :depends-on ("backtrace" "map-backtrace")))))
  :in-order-to ((test-op (load-op trivial-backtrace-test)))
  :in-order-to ((test-op (test-op trivial-backtrace/test))))

(defsystem trivial-backtrace/test
  :author "Gary Warren King <gwking@metabang.com>"
  :maintainer "Robert P. Goldman <rpgoldman@sift.net>"
  :licence "MIT Style License; see file COPYING for details"
  :components ((:module 
                "setup"
                :pathname "test/"
                :components ((:file "packages")
                             (:file "test-setup"
                                    :depends-on ("packages"))))
               (:module 
                "test"
                :pathname "test/"
                :depends-on ("setup")
                :components ((:file "tests"))))
  :perform (test-op :after (op c)
                    (funcall
                     (intern (symbol-name '#:run-tests) :lift)
		     :config :generic)))
                     :config :generic))
  :depends-on (:lift :trivial-backtrace))

(defmethod operation-done-p 
           ((o test-op)
            (c (eql (find-system 'trivial-backtrace))))
  (values nil))