File: runtests.lisp

package info (click to toggle)
cl-split-sequence 1%3A2.0.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 136 kB
  • sloc: lisp: 608; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 386 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
(require "asdf")

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

;; Can't use ASDF:TEST-SYSTEM, its return value is meaningless
(let ((results (5am:run :split-sequence)))
  (5am:explain! results)
  (unless (5am:results-status results)
    (uiop:quit 1)))