From f02926df9a577b14657dd0052d9df3e7dc856fb1 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Wed, 26 Feb 2014 09:05:01 -0600 Subject: [PATCH] Extend DEF-TEST-SYSTEM to permit systems named with strings. --- test/script-support.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/test/script-support.lisp b/test/script-support.lisp index 45b94a3ae..0ab83108e 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -592,8 +592,15 @@ is bound, write a message and exit on an error. If (setf *package* (find-package :asdf-test)) (defmacro def-test-system (name &rest rest) - `(apply (asym :register-system-definition) ',name :pathname ,*test-directory* - :source-file nil ',rest)) + (etypecase name + (symbol + `(apply (asym :register-system-definition) ',name + :pathname ,*test-directory* + :source-file nil ',rest)) + (string + `(apply (asym :register-system-definition) ,name + :pathname ,*test-directory* + :source-file nil ',rest)))) (defun in-plan-p (plan x) (member x (acall :plan-actions plan) :key (asym :action-path) :test 'equal)) -- GitLab