From 56cd4b04bf27ea53d9dda16c07415fce0f30e587 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Wed, 26 Feb 2014 09:05:52 -0600
Subject: [PATCH] Add test for system name checks.

---
 test/test-check-system-name.script | 40 ++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 test/test-check-system-name.script

diff --git a/test/test-check-system-name.script b/test/test-check-system-name.script
new file mode 100644
index 00000000..d890c3aa
--- /dev/null
+++ b/test/test-check-system-name.script
@@ -0,0 +1,40 @@
+;;; -*- 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