;;;; 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 (SYSTEM:entrypoint) "SYSTEM")))