tvl-depot/users/wpcarro/emacs/pkgs/string/tests.el

23 lines
814 B
EmacsLisp
Raw Normal View History

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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"))))