From 58c6bbb03752e7d47aaf0e0bc5645b2735ccef3a Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Wed, 26 Feb 2014 13:16:59 -0600 Subject: [PATCH] Revert "Add test for system name checks." This reverts commit bfe8708b77af01081fbd3ffec47d78eda8dba0a0. --- test/test-check-system-name.script | 40 ------------------------------ 1 file changed, 40 deletions(-) delete mode 100644 test/test-check-system-name.script diff --git a/test/test-check-system-name.script b/test/test-check-system-name.script deleted file mode 100644 index d890c3aa..00000000 --- a/test/test-check-system-name.script +++ /dev/null @@ -1,40 +0,0 @@ -;;; -*- 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