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")
-
-