mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Refactor strings.el tests

Browse source 
Ensure that string.el follows the latest whim in my Elisp testing circus.
This commit is contained in:
William Carroll 2019-12-22 21:33:48 +00:00
parent 90955a3c02
commit d1566dd0e6
1 changed files with 18 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
configs/shared/.emacs.d/wpc/string.el
View file

@ -12,11 +12,16 @@
(require 's)
(require 'dash)
;; TODO: Resolve the circular dependency that this introduces.
;; (require 'prelude)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst string/test? t
"When t, run the tests.")
;; Strings
(defun string/hookify (x)
"Append \"-hook\" to X."
@ -98,29 +103,19 @@
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TODO: Support these.
;; (require 'macros)
;; (macros/test
;; :function string/surround
;; :test "works as expected"
;; :args '("-*-" "surround")
;; :expect "-*-surround-*-"
;; :equality string=)
;
;; (macros/test
;; :function string/caps->kebab
;; :test "works as expected"
;; :args '("CAPS_CASE_STRING")
;; :expect "caps-case-string"
;; :equality string=)
;
;; ;; TODO: Generate :test from docs of defun.
;; (macros/test
;; :function string/kebab->caps
;; :test "works as expected"
;; :args '("kebab-case-string")
;; :expect "KEBAB_CASE_STRING"
;; :equality =)
;; (when string/test?
;; (prelude/assert
;; (string=
;; (string/surround "-*-" "surround")
;; "-*-surround-*-"))
;; (prelude/assert
;; (string=
;; (string/caps->kebab "CAPS_CASE_STRING")
;; "caps-case-string"))
;; (prelude/assert
;; (string=
;; (string/kebab->caps "kebab-case-string")
;; "KEBAB_CASE_STRING")))
(provide 'string)
;;; string.el ends here