From 6ad840ed600bebfe4801b045a2bb24abb848b54e Mon Sep 17 00:00:00 2001 From: Tristan Williams Date: Sun, 27 Oct 2024 22:15:12 -0400 Subject: Add everything I've already been working on a CL template. Just add the fucker. --- test/SYSTEM-test.lisp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 test/SYSTEM-test.lisp (limited to 'test/SYSTEM-test.lisp') 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 @@ +;;;; SYSTEM-test.lisp +;;;; Tests for SYSTEM + + +;; --------------------------------------------------------------------- +;;; Package Definition +;; --------------------------------------------------------------------- +(defpackage :SYSTEM-test + (:use :common-lisp :SYSTEM :fiveam) + (:export #:SYSTEM-test-all)) + +(in-package :SYSTEM-test) + + +;; --------------------------------------------------------------------- +;;; 5AM Test Suite Definition +;; --------------------------------------------------------------------- +(5am:def-suite SYSTEM-test-suite + :description "Test suite for SYSTEM.") + +(5am:in-suite SYSTEM-test-suite) + + +;; --------------------------------------------------------------------- +;;; Tests +;; --------------------------------------------------------------------- + +;; Bullshit +(5am:test existence + "Bullshit test just for implementing tests." + (is (equal (fash:entrypoint) "SYSTEM"))) -- cgit v1.2.3