diff options
| -rw-r--r-- | users/wpcarro/emacs/pkgs/struct/tests.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/users/wpcarro/emacs/pkgs/struct/tests.el b/users/wpcarro/emacs/pkgs/struct/tests.el index 619c54f451..ee48c2f6b5 100644 --- a/users/wpcarro/emacs/pkgs/struct/tests.el +++ b/users/wpcarro/emacs/pkgs/struct/tests.el @@ -14,12 +14,11 @@ (cl-defstruct dummy name age) (defvar struct--test-dummy (make-dummy :name "Roofus" :age 19)) (struct-set! dummy name "Doofus" struct--test-dummy) - (string= "Doofus" (dummy-name struct--test-dummy))) + (should (string= "Doofus" (dummy-name struct--test-dummy)))) (ert-deftest struct-set () (cl-defstruct dummy name age) (defvar struct--test-dummy (make-dummy :name "Roofus" :age 19)) (let ((result (struct-set dummy name "Shoofus" struct--test-dummy))) - (and - (string= "Roofus" (dummy-name struct--test-dummy)) - (string= "Shoofus" (dummy-name result))))) + (should (string= "Roofus" (dummy-name struct--test-dummy))) + (should (string= "Shoofus" (dummy-name result))))) |