1(defsystem "alexandria-tests" 2 :licence "Public Domain / 0-clause MIT" 3 :description "Tests for Alexandria, which is a collection of portable public domain utilities." 4 :author "Nikodemus Siivola <nikodemus@sb-studio.net>, and others." 5 :depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt) 6 :components ((:file "alexandria-1/tests") 7 (:file "alexandria-2/tests")) 8 :perform (test-op (o c) 9 (flet ((run-tests (&rest args) 10 (apply (intern (string '#:run-tests) '#:alexandria-tests) args))) 11 (run-tests :compiled nil) 12 (run-tests :compiled t)))) 13