Skip to content
Snippets Groups Projects
Commit 58c6bbb0 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Revert "Add test for system name checks."

This reverts commit bfe8708b.
parent a5424d6c
No related branches found
No related tags found
No related merge requests found
;;; -*- 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")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment