blob: 3de09df17cc71795ae83626c2a46f6abf67c658d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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")))
|