File: runtests.lisp

package info (click to toggle)
cl-usocket 0.8.3-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 632 kB
  • sloc: lisp: 6,744; makefile: 4
file content (11 lines) | stat: -rw-r--r-- 413 bytes parent folder | download 
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 "usocket-test"))

;; Run testsuite on SBCL only. It badly fails on ECL and CLISP (and the test
;; is therefore marked "superficial" for those in d/tests/control)
#+sbcl
;; Can't use ASDF:TEST-SYSTEM, its return value is meaningless
(unless (usocket-test:do-tests)
  (uiop:quit 1))