2022-07-30 03:56:06 +02:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Dependencies
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(require 'ert)
|
|
|
|
(require 'string)
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Tests
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
|
|
(ert-deftest string-caps->kebab ()
|
2022-07-30 16:25:41 +02:00
|
|
|
(should (string= "foo-bar-baz" (string-caps->kebab "FOO_BAR_BAZ"))))
|
2022-07-30 03:56:06 +02:00
|
|
|
|
|
|
|
(ert-deftest string-kebab->caps ()
|
2022-07-30 16:25:41 +02:00
|
|
|
(should (string= "FOO_BAR_BAZ" (string-kebab->caps "foo-bar-baz"))))
|
2022-07-30 03:56:06 +02:00
|
|
|
|
|
|
|
(ert-deftest string-lower->caps ()
|
2022-07-30 16:25:41 +02:00
|
|
|
(should (string= "FOO_BAR_BAZ" (string-lower->caps "foo bar baz"))))
|
2022-07-30 03:56:06 +02:00
|
|
|
|
|
|
|
(ert-deftest string-lower->kebab ()
|
2022-07-30 16:25:41 +02:00
|
|
|
(should (string= "foo-bar-baz" (string-lower->kebab "foo bar baz"))))
|