Plaster

common-lisp
;; In CI system: (define-condition test-success () ()) (defclass ci-test-op (asdf:test-op) (...)) (defmethod asdf:operate ((op ci-test-op) (system asdf:system)) (handler-bind ((test-success (lambda (c) (record-success-somewhere)))) (call-next-method))) ;; Patch testing frameworks like so: ;; New function (defun signal-success () (when (find-package "CI-SYSTEM") (signal (find-symbol "TEST-SUCCESS" "CI-SYSTEM")))) ;; Existing function (defun run-tests () ... ;; Patch (when (zerop fail-count) (signal-success)) ...)