load-run-tests.lisp 316 B

1234567891011
  1. ;;;; load-run-tests.lisp
  2. (require "asdf")
  3. (push (make-pathname :name nil
  4. :type nil
  5. :version nil
  6. :defaults *load-truename*) asdf:*central-registry*)
  7. (asdf:load-system "gamao/test")
  8. (setf gamao/test:*error-on-failing-tests* t)
  9. (asdf:test-system "gamao")