(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))
