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

45 lines
1.5 KiB
EmacsLisp
Raw Normal View History

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ert)
(require 'struct)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cl-defstruct dummy name age)
(ert-deftest struct-update ()
(let* ((test (make-dummy :name "Roofus" :age 19))
(result (struct-update dummy name #'upcase test)))
;; test
(should (string= "Roofus" (dummy-name test)))
(should (= 19 (dummy-age test)))
;; result
(should (string= "ROOFUS" (dummy-name result)))
(should (= 19 (dummy-age result)))))
(ert-deftest struct-update! ()
(let ((test (make-dummy :name "Roofus" :age 19)))
(struct-update! dummy name #'upcase test)
(should (string= "ROOFUS" (dummy-name test)))
(should (= 19 (dummy-age test)))))
(ert-deftest struct-set ()
(let* ((test (make-dummy :name "Roofus" :age 19))
(result (struct-set dummy name "Shoofus" test)))
;; test
(should (string= "Roofus" (dummy-name test)))
(should (= 19 (dummy-age test)))
;; result
(should (string= "Shoofus" (dummy-name result)))
(should (= 19 (dummy-age result)))))
(ert-deftest struct-set! ()
(let ((test (make-dummy :name "Roofus" :age 19)))
(struct-set! dummy name "Doofus" test)
(should (string= "Doofus" (dummy-name test)))
(should (= 19 (dummy-age test)))))