- ;;;; load-run-tests.lisp
- (require "asdf")
- (push (make-pathname :name nil
- :type nil
- :version nil
- :defaults *load-truename*) asdf:*central-registry*)
- (asdf:load-system "gamao/test")
- (setf gamao/test:*error-on-failing-tests* t)
- (asdf:test-system "gamao")
|