diff options
| author | William Carroll <wpcarro@gmail.com> | 2022-07-30T17·43-0700 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-08-01T17·20+0000 |
| commit | a004be56b39ce48ba7e8530ecd5d1f6fc00a70d5 (patch) | |
| tree | a469987dd19b9c6fd6053ece6e9a3ca0bc423d00 /users/wpcarro/emacs/pkgs/symbol/tests.el | |
| parent | 77aeb57c645d731508da8cbfd0862cd822c088a1 (diff) | |
feat(wpcarro/emacs): Package symbol.el r/4359
Not sure how useful this package is, *but* I'm packaging everything I have now, and then in a separate CL I can refactor and remove various libs. Change-Id: Id106539b19244ea1586198992c7ce0d65a0a242b Reviewed-on: https://cl.tvl.fyi/c/depot/+/6014 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
Diffstat (limited to '')
| -rw-r--r-- | users/wpcarro/emacs/pkgs/symbol/tests.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/users/wpcarro/emacs/pkgs/symbol/tests.el b/users/wpcarro/emacs/pkgs/symbol/tests.el new file mode 100644 index 000000000000..b10362b162c7 --- /dev/null +++ b/users/wpcarro/emacs/pkgs/symbol/tests.el @@ -0,0 +1,22 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Dependencies +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(require 'ert) +(require 'symbol) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Tests +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(ert-deftest symbol-to-string () + (should (string= "foo" (symbol-to-string 'foo)))) + +(ert-deftest symbol-from-string () + (should (eq 'foo (symbol-from-string "foo")))) + +(ert-deftest symbol-as-string () + (should (eq 'foo-hook + (symbol-as-string + (lambda (x) (format "%s-hook" x)) + 'foo)))) |