projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Better arglists for DEF-FIXTURE and WITH-FIXTURE
[fiveam.git]
/
src
/
suite.lisp
diff --git
a/src/suite.lisp
b/src/suite.lisp
index
eb2691d
..
a71c6eb
100644
(file)
--- a/
src/suite.lisp
+++ b/
src/suite.lisp
@@
-1,4
+1,4
@@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
(in-package :it.bese.fiveam)
(in-package :it.bese.fiveam)
@@
-37,7
+37,7
@@
named NAME."
(defun make-suite (name &key description in)
"Create a new test suite object.
(defun make-suite (name &key description in)
"Create a new test suite object.
-Overides any existing suite named NAME."
+Overrides any existing suite named NAME."
(let ((suite (make-instance 'test-suite :name name)))
(when description
(setf (description suite) description))
(let ((suite (make-instance 'test-suite :name name)))
(when description
(setf (description suite) description))
@@
-72,9
+72,9
@@
See also: DEF-SUITE *SUITE*"
`(%in-suite ,suite-name :in ,in :fail-on-error nil))
(defmacro %in-suite (suite-name &key (fail-on-error t) in)
`(%in-suite ,suite-name :in ,in :fail-on-error nil))
(defmacro %in-suite (suite-name &key (fail-on-error t) in)
- (with-unique-names (suite)
+ (with-gensyms (suite)
`(progn
`(progn
- (if-bind ,suite (get-test ',suite-name)
+ (if-let (,suite (get-test ',suite-name))
(setf *suite* ,suite)
(progn
(when ,fail-on-error
(setf *suite* ,suite)
(progn
(when ,fail-on-error