maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Support struct-update!

Browse source 
Support mutable variant of `struct-update`. Also remove the `dash` dependency in
`tests.el`.

Change-Id: I76fc809e96b7cbbd3b39fd16db339cb62eab002c
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6027
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
This commit is contained in:
William Carroll 2022-08-02 13:10:10 -07:00 • committed by clbot
parent 9d475c5b9b
commit 44f520ccd1
3 changed files with 41 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

42
users/wpcarro/emacs/pkgs/struct/tests.el
View file

@ -3,22 +3,42 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ert)
(require 'dash)
(require 'struct)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ert-deftest struct-set! ()
(cl-defstruct dummy name age)
(defvar struct--test-dummy (make-dummy :name "Roofus" :age 19))
(struct-set! dummy name "Doofus" struct--test-dummy)
(should (string= "Doofus" (dummy-name struct--test-dummy))))
(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 ()
(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)))
(should (string= "Roofus" (dummy-name struct--test-dummy)))
(should (string= "Shoofus" (dummy-name result)))))
(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)))))