File: runtests.lisp

package info (click to toggle)
cl-trivial-garbage 20180913.gitb1f7571-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 120 kB
  • sloc: lisp: 642; makefile: 2
file content (9 lines) | stat: -rw-r--r-- 303 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
(require "asdf")

(let ((asdf:*user-cache* (uiop:getenv "AUTOPKGTEST_TMP"))) ; Store FASL in some temporary dir
  (asdf:load-system "trivial-garbage")
  (asdf:load-system "trivial-garbage-tests"))

;; Can't use ASDF:TEST-SYSTEM, its return value is meaningless
(unless (rtest:do-tests)
  (uiop:quit 1))