changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/rt/var.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 ;;; var.lisp --- Test Variables
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :rt)
     7 
     8 ;;; Vars
     9 (defvar *test-opts* '(optimize sb-c::instrument-consing))
    10 (defvar *compile-tests* nil
    11   "When nil do not compile tests. With a value of t, tests are compiled
    12 with default optimizations else the value is used to configure
    13 compiler optimizations.")
    14 (defvar *catch-test-errors* t "When non-nil, cause errors in a test to be caught.")
    15 (defvar *test-suffix* "-TEST" "A suffix to append to every `test' defined with `deftest'.")
    16 (defvar *test-suite-list* nil "List of available `test-suite' objects.")
    17 (defvar *test-suite* nil "A 'test-suite-designator' which identifies the current `test-suite'.")
    18 (eval-when (:compile-toplevel :load-toplevel :execute)
    19   (defvar *default-test-suite-name* "default"))
    20 (declaim (type (or stream boolean string) *test-input*))
    21 (defvar *test-input* nil "When non-nil, specifies an input stream or buffer for `*testing*'.")
    22 (defvar *testing* nil "Testing state var.")
    23 (defvar *default-tmp-directory* #P"/tmp/")
    24 (defvar *tmp* *default-tmp-directory*)
    25 ;; TODO 2024-08-31:
    26 (defvar *test-on-definition* nil
    27   "Special variable indicating whether to run tests as soon as they are defined.")