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