1
0
Fork 0
Browse Source

integrate FiveAM into test package def. and main testing file.

This builds on the initial set-up in the .asd file. With the .asd file
knowing the tests package needs FiveAM, the code here integrates the
testing framework in to the .lisp files responsible for housing the
tests.

The code here is placeholder tests and should be deleted the more I
get into the project. They exist just to make sure everything is
set-up properly between the various definition/set-up files.
unstable
Craig Oates 3 years ago
parent
commit
8f8cd147ce
  1. 4
      tests/package.lisp
  2. 33
      tests/ritherdon-rest-tests.lisp

4
tests/package.lisp

@ -1,4 +1,6 @@
;;;; package.lisp
(defpackage #:ritherdon-rest-tests
(:use #:cl :fiveam))
(:use #:cl #:fiveam)
(:export #:run!
#:all-tests))

33
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)))