diff --git a/tests/package.lisp b/tests/package.lisp index 0c3210c..9847d73 100644 --- a/tests/package.lisp +++ b/tests/package.lisp @@ -1,4 +1,6 @@ ;;;; package.lisp (defpackage #:ritherdon-rest-tests - (:use #:cl :fiveam)) + (:use #:cl #:fiveam) + (:export #:run! + #:all-tests)) diff --git a/tests/ritherdon-rest-tests.lisp b/tests/ritherdon-rest-tests.lisp index 462bb4f..6945b34 100644 --- a/tests/ritherdon-rest-tests.lisp +++ b/tests/ritherdon-rest-tests.lisp @@ -2,7 +2,34 @@ (in-package #:ritherdon-rest-tests) -(fiveam:test sum-1 - (fiveam:is (= 3 (+ 1 2)))) +(def-suite all-tests + :description "The master suite of all ritherdon-rest tests.") -(fiveam:run!) +(in-suite all-tests) + +;; These two examples show the 'full' call to the fiveAm test +;; functions. This is just for reference. The 'namespace' is already +;; 'imported' in 'package.lisp'. + +;; (fiveam:test sum-1 +;; (fiveam:is (= 3 (+ 1 2)))) + +;; (fiveam:run!) + +;; How you would normally create the tests -- with fiveAM already +;; set-up in 'package.lisp' and not needing to be explicit about it +;; here. This is similar to 'using static' in C#. + +(defun test-quasi() + (run! 'all-tests)) + +(test dummy-tests + "Just a placeholder." + (is (listp (list 1 2))) + (is (= 5 (+ 2 3))) + (is (< 4 (+ 100 400)))) + +(test dummy-tests-two + "This is another placeholder test. +This is just to make sure everything is set-up properly." + (is (equal 4 4)))