From 56cd4b04bf27ea53d9dda16c07415fce0f30e587 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Wed, 26 Feb 2014 09:05:52 -0600 Subject: [PATCH] Add test for system name checks. --- test/test-check-system-name.script | 40 ++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 test/test-check-system-name.script diff --git a/test/test-check-system-name.script b/test/test-check-system-name.script new file mode 100644 index 00000000..d890c3aa --- /dev/null +++ b/test/test-check-system-name.script @@ -0,0 +1,40 @@ +;;; -*- Mode: common-lisp; package: ASDF-TEST; -*- + +(DBG "Testing to make sure we reject system names with underscores.") +;; underscores are not permitted.... +(assert (multiple-value-bind (val err) + (ignore-errors (def-test-system "bad_system_name" + :components + ((:file "file2" :depends-on ("foo")) + (:module "foo" :pathname "" + :components ((:file "file1") + (:file "file4" :if-feature (:not :common-lisp))))))) + (and (null val) + (typep err 'system-definition-error)))) +(DBG "Testing to make sure we reject system names with CamelCase.") +(assert (multiple-value-bind (val err) + (ignore-errors (def-test-system "CamelCaseBadSystemName" + :components + ((:file "file2" :depends-on ("foo")) + (:module "foo" :pathname "" + :components ((:file "file1") + (:file "file4" :if-feature (:not :common-lisp))))))) + (and (null val) + (typep err 'system-definition-error)))) + +(DBG "Testing to make sure we revise system names with CamelCase.") +(assert-equal + (progn + (handler-bind + ((system-definition-error #'(lambda (e) + (continue e)))) + (def-test-system "CamelCaseBadSystemName" + :components + ((:file "file2" :depends-on ("foo")) + (:module "foo" :pathname "" + :components ((:file "file1") + (:file "file4" :if-feature (:not :common-lisp))))))) + (component-name (find-system :camelcasebadsystemname))) + "camelcasebadsystemname") + + -- GitLab