diff --git a/test/test-check-system-name.script b/test/test-check-system-name.script deleted file mode 100644 index d890c3aafc239f3b9f8fc644acb4973ae221c10d..0000000000000000000000000000000000000000 --- 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") - -