- (:module "dev"
- :components ((:static-file "notes.text"))))
-
- :in-order-to ((test-op (load-op moptilities-test)))
-
- :perform (test-op :after (op c)
- (describe
- (funcall
- (intern (symbol-name '#:run-tests) '#:lift)
- :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
- :depends-on (cl-graph lift))
-
-;;; ---------------------------------------------------------------------------
-
-(defmethod operation-done-p
- ((o test-op)
- (c (eql (find-system 'moptilities-test))))
- (values nil))