-
-;;; ---------------------------------------------------------------------------
-
-(defmethod perform :after ((op test-op ) (c (eql (find-system 'cl-graph-test))))
- (describe
- (funcall
- (intern (symbol-name '#:run-tests) '#:lift)
- :suite (intern (symbol-name '#:cl-graph-test) '#:cl-graph-test))))
-
-;;; ---------------------------------------------------------------------------
-
-(defmethod perform :after ((o load-op) (c (eql (find-system 'cl-graph-test))))
- )
-
-(defmethod operation-done-p ((o test-op) (c (eql (find-system 'cl-graph-test))))
- ;; testing is never done...
- (values nil))