a1dfbbe79e
:) Change-Id: Ic20b9c5c66465f2b28f58239a9e7d38dc19f2260 Reviewed-on: https://cl.tvl.fyi/c/depot/+/6012 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
22 lines
814 B
EmacsLisp
22 lines
814 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'ert)
|
|
(require 'string)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Tests
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(ert-deftest string-caps->kebab ()
|
|
(should (string= "foo-bar-baz" (string-caps->kebab "FOO_BAR_BAZ"))))
|
|
|
|
(ert-deftest string-kebab->caps ()
|
|
(should (string= "FOO_BAR_BAZ" (string-kebab->caps "foo-bar-baz"))))
|
|
|
|
(ert-deftest string-lower->caps ()
|
|
(should (string= "FOO_BAR_BAZ" (string-lower->caps "foo bar baz"))))
|
|
|
|
(ert-deftest string-lower->kebab ()
|
|
(should (string= "foo-bar-baz" (string-lower->kebab "foo bar baz"))))
|