test/run.lisp @ d16b5b360398
Fix up `push-if-new` with setf/places macromancy
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Thu, 14 Apr 2016 13:32:31 +0000 |
parents | ae2b13a9a629 |
children | 00f7bec64b84 |
(let ((*standard-output* (make-broadcast-stream))) (ql:quickload "bones-test")) (defvar *passed* t) (defun test (spec) (let ((result (5am:run spec))) (5am:explain! result) (when (not (5am:results-status result)) (setf *passed* nil)))) (test :bones) (test :bones.paip) (sb-ext:exit :code (if *passed* 0 1))