1b98ccc872c9 — Zachary Kanfer 1 year, 5 months ago 
Make sure it's the case that dashcase and snakecase are lowercased
patch browse 
2 files changed, 26 insertions(+), 0 deletions(-)

M caser.el
M tests.el

M caser.el +2 -0
@@ 198,6 198,7 @@ to snakecase ARG words."
                        (insert "_"))))
           ;;dashcase
           (replace-match "_" nil nil nil 3))))
+    (downcase-region region-beginning (marker-position end-marker))
     (goto-char (marker-position end-marker))))
 (defalias 'caser/snakecase-region #'caser-snakecase-region)
 

          
@@ 251,6 252,7 @@ to snakecase ARG words."
                        (insert "-"))))
           ;;dashcase
           (replace-match "-" nil nil nil 3))))
+    (downcase-region region-beginning (marker-position end-marker))
     (goto-char (marker-position end-marker))))
 (defalias 'caser/dashcase-region #'caser-dashcase-region)
 

          
M tests.el +24 -0
@@ 111,6 111,18 @@ was called."
                    "hi-mom"
                    (caser/camelcase-region 1 7)))))
 
+(ert-deftest camelcase-region/from-dashcase/caps-in-dashcase ()
+  (should (equal "thisIsNotWrong|"
+                 (caser//on-temp-buffer-point
+                   "this-Is-Not-WRONG"
+                   (caser/camelcase-region (point-min) (point-max))))))
+
+(ert-deftest camelcase-region/from-snakecase/caps-in-snakecase ()
+  (should (equal "thisIsNotWrong|"
+                 (caser//on-temp-buffer-point
+                   "this_Is_Not_WRONG"
+                   (caser/camelcase-region (point-min) (point-max))))))
+
 ;;word tests
 (ert-deftest camelcase-word/from-snakecase ()
   (should (equal "abCd| ef_gh"

          
@@ 277,6 289,12 @@ was called."
                    "myIP"
                    (caser/snakecase-region (point-min) (point-max))))))
 
+(ert-deftest snakecase-region/from-dashcase/caps-in-dashcase ()
+  (should (equal "this_is_not_wrong|"
+                 (caser//on-temp-buffer-point
+                   "this-Is-Not-WRONG"
+                   (caser/snakecase-region (point-min) (point-max))))))
+
 ;;word tests
 (ert-deftest snakecase-word/from-camelcase ()
   (should (equal "ab_cd| efGh"

          
@@ 455,6 473,12 @@ was called."
                    "myIP"
                    (caser/dashcase-region (point-min) (point-max))))))
 
+(ert-deftest dashcase-region/from-snakecase/caps-in-snakecase ()
+  (should (equal "this-is-not-wrong|"
+                 (caser//on-temp-buffer-point
+                   "this_Is_NOT_Wrong"
+                   (caser/dashcase-region (point-min) (point-max))))))
+
 ;; word tests
 (ert-deftest dashcase-word/from-camelcase ()
   (should (equal "ab-cd| efGh"