changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/tests.lisp

changeset 661: 39170f311b8c
parent: 937a6f354047
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 21 Sep 2024 00:04:33 -0400
permissions: -rw-r--r--
description: add sk-def and sk-bind
411
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
1 
 ;;; tests.lisp --- Test Package Definitions
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
2 
 
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
3 
 ;;
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
4 
 
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
5 
 ;;; Code:
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
6 
 (in-package :std-user)
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
7 
 
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
8 
 (defpkg :core/tests
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
9 
   (:use :std-lisp :rt :log))
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
10 
 
419
0f0e5f9b5c55 add emacs/babel.org, finished clap refactor phase 1, test system fixes and more top-level packages
Richard Westhaver <ellis@rwest.io>
parents: 411
diff changeset
11 
 (in-package :core/tests)
411
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
12 
 
7e3c88fff062 fixed tests, made core/tests system
Richard Westhaver <ellis@rwest.io>
parents:
diff changeset
13 
 (defsuite :core)
503
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
14 
 (in-suite :core)
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
15 
 
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
16 
 (defun run-all-tests (&optional force)
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
17 
   (mapcar (lambda (x) (do-tests x force)) (remove *test-suite* *test-suite-list*)))
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
18 
 
03c2017b1405 test stuff
Richard Westhaver <ellis@rwest.io>
parents: 419
diff changeset
19 
 (deftest all ()
661
39170f311b8c add sk-def and sk-bind
Richard Westhaver <ellis@rwest.io>
parents: 657
diff changeset
20 
   (run-all-tests))