|
Revision 3998, 455 bytes
(checked in by hans, 3 months ago)
|
Add missing files
|
| Line | |
|---|
| 1 |
(defsystem alexandria-tests |
|---|
| 2 |
:depends-on (:alexandria #+sbcl :sb-rt #-sbcl :rt) |
|---|
| 3 |
:components ((:file "tests"))) |
|---|
| 4 |
|
|---|
| 5 |
(defmethod operation-done-p |
|---|
| 6 |
((o test-op) (c (eql (find-system :alexandria-tests)))) |
|---|
| 7 |
nil) |
|---|
| 8 |
|
|---|
| 9 |
(defmethod perform ((o test-op) (c (eql (find-system :alexandria-tests)))) |
|---|
| 10 |
(flet ((run-tests (&rest args) |
|---|
| 11 |
(apply (intern (string '#:run-tests) '#:alexandria-tests) args))) |
|---|
| 12 |
(run-tests :compiled nil) |
|---|
| 13 |
(run-tests :compiled t))) |
|---|
