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