Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
209dd2c0
Commit
209dd2c0
authored
May 14, 2012
by
mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
abcl-test-lisp: rename DO-MATCHING to DO-TESTS-MATCHING.
Use the same name as defined in ANSI-TESTS.
parent
7d9e1445
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/lisp/abcl/package.lisp
View file @
209dd2c0
...
...
@@ -3,12 +3,14 @@
(
:nicknames
"ABCL-TEST-LISP"
"ABCL-TEST"
)
(
:export
#:run
#:do-matching
#:run-matching
#:do-test
#:do-tests
#:do-tests-matching
;; previously in file-system-tests.lisp
#:pathnames-equal-p
#:run-shell-command
#:copy-file
#:make-symbolic-link
#:touch
#:make-temporary-directory
#:delete-directory-and-files
;;; Deprecated
#:do-matching
#:run-matching
))
(
in-package
#:abcl.test.lisp
)
...
...
@@ -27,7 +29,7 @@
;;; XXX move this into test-utilities.lisp?
(
defvar
*last-run-matching*
"url-pathname"
)
(
defun
do-matching
(
&optional
(
match
*last-run-matching*
))
(
defun
do-
tests-
matching
(
&optional
(
match
*last-run-matching*
))
"Run all tests in suite whose symbol contains MATCH in a case-insensitive manner."
(
setf
*last-run-matching*
match
)
(
let*
((
matching
(
string-upcase
match
))
...
...
@@ -42,7 +44,8 @@
(
abcl-rt::do-entries
t
)))
;;; Deprecated
(
setf
(
symbol-function
'run-matching
)
#'
do-matching
)
(
setf
(
symbol-function
'run-matching
)
#'
do-tests-matching
)
(
setf
(
symbol-function
'do-matching
)
#'
do-tests-matching
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment