Coverage report: /home/ellis/comp/core/lib/rt/proto.lisp

KindCoveredAll%
expression014 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; proto.lisp --- Test Protocols
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :rt)
7
 
8
 (defgeneric eval-test (self)
9
   (:documentation "Eval a `test'."))
10
 
11
 (defgeneric compile-test (self &key &allow-other-keys)
12
   (:documentation "Compile a `test'."))
13
 
14
 (defgeneric locked-tests (self)
15
   (:documentation "Return a list of locked tests in `test-suite' object SELF."))
16
 
17
 (defgeneric push-test (self place)
18
   (:documentation
19
    "Push `test' SELF to the value of slot ':tests' in `test-suite' object PLACE."))
20
 
21
 (defgeneric pop-test (self)
22
   (:documentation
23
    "Pop the first `test' from the slot-value of ':tests' in `test-suite' object SELF."))
24
 
25
 (defgeneric push-result (self place)
26
   (:documentation
27
    "Push object SELF to the value of slot ':results' in object PLACE."))
28
 
29
 (defgeneric pop-result (self)
30
   (:documentation
31
    "Pop the first `test-result' from the slot-value of ':tests' from object SELF."))
32
 
33
 (defgeneric push-fixture (self place)
34
   (:documentation
35
    "Push object SELF to the value of slot ':results' in object PLACE."))
36
 
37
 (defgeneric delete-test (self &key &allow-other-keys)
38
   (:documentation "Delete `test' object specified by `test-object' SELF and optional keys."))
39
 
40
 (defgeneric find-test (self name &key &allow-other-keys)
41
   (:documentation "Find `test' object specified by name and optional keys."))
42
 
43
 (defgeneric do-test (self &optional context)
44
   (:documentation "Run test SELF, printing results to *standard-output*. The second
45
 argument is an optional fixture.
46
 
47
 SELF can also be a `test-suite', in which case the TESTS slot is
48
 queried for the value of TEST. If TEST is not provided, pops the car
49
 from TESTS."))
50
 
51
 (defgeneric do-suite (self &key &allow-other-keys)
52
   (:documentation
53
    "Perform actions on `test-suite' object SELF with optional keys."))
54
 
55
 (defgeneric make-fixture (kind &rest args &key &allow-other-keys)
56
   (:documentation
57
    "Make a FIXTURE object with optional init ARGS."))