aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorTristan Williams <tgwil@tgwil.net>2024-10-27 22:15:12 -0400
committerTristan Williams <tgwil@tgwil.net>2024-10-27 22:15:12 -0400
commit6ad840ed600bebfe4801b045a2bb24abb848b54e (patch)
tree08c6694fabc0d05b124f8360246400b948ed5e9e /test
downloadtemplate.cl-6ad840ed600bebfe4801b045a2bb24abb848b54e.tar.gz
template.cl-6ad840ed600bebfe4801b045a2bb24abb848b54e.tar.bz2
template.cl-6ad840ed600bebfe4801b045a2bb24abb848b54e.zip
Add everything
I've already been working on a CL template. Just add the fucker.
Diffstat (limited to 'test')
-rw-r--r--test/SYSTEM-test.lisp31
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")))