changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/rt/proto.lisp

changeset 698: 96958d3eb5b0
parent: bbd9024f2fe2
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     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."))