diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/SYSTEM-test.lisp | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/test/SYSTEM-test.lisp b/test/SYSTEM-test.lisp new file mode 100644 index 0000000..3de09df --- /dev/null +++ b/test/SYSTEM-test.lisp | |||
@@ -0,0 +1,31 @@ | |||
1 | ;;;; SYSTEM-test.lisp | ||
2 | ;;;; Tests for SYSTEM | ||
3 | |||
4 | |||
5 | ;; --------------------------------------------------------------------- | ||
6 | ;;; Package Definition | ||
7 | ;; --------------------------------------------------------------------- | ||
8 | (defpackage :SYSTEM-test | ||
9 | (:use :common-lisp :SYSTEM :fiveam) | ||
10 | (:export #:SYSTEM-test-all)) | ||
11 | |||
12 | (in-package :SYSTEM-test) | ||
13 | |||
14 | |||
15 | ;; --------------------------------------------------------------------- | ||
16 | ;;; 5AM Test Suite Definition | ||
17 | ;; --------------------------------------------------------------------- | ||
18 | (5am:def-suite SYSTEM-test-suite | ||
19 | :description "Test suite for SYSTEM.") | ||
20 | |||
21 | (5am:in-suite SYSTEM-test-suite) | ||
22 | |||
23 | |||
24 | ;; --------------------------------------------------------------------- | ||
25 | ;;; Tests | ||
26 | ;; --------------------------------------------------------------------- | ||
27 | |||
28 | ;; Bullshit | ||
29 | (5am:test existence | ||
30 | "Bullshit test just for implementing tests." | ||
31 | (is (equal (fash:entrypoint) "SYSTEM"))) | ||