daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
lisp/persist/test/persist-tests.el
View File

@@ -25,51 +25,57 @@
:type 'error
:exclude-subtypes t))
(ert-deftest test-persist-save ()
(with-local-temp-persist
(let ((sym (cl-gensym)))
;; precondition
(should-not (file-exists-p (persist--file-location sym)))
(set sym 10)
(persist-symbol sym 10)
(persist-save sym)
(should t)
(should-not (file-exists-p (persist--file-location sym)))
(set sym 20)
(persist-save sym)
(should (file-exists-p (persist--file-location sym)))
(should
(string-match-p
"20"
(with-temp-buffer
(insert-file-contents (persist--file-location sym))
(buffer-string))))
(set sym 10)
(persist-save sym)
(should-not (file-exists-p (persist--file-location sym)))
(should-error
(persist-save 'fred)))))
(defmacro persist-test-persist-save (init default change printed-changed)
"Test persisting symbols.
- symbol is not persisted when value is set to INIT and default
value is set to DEFAULT.
- symbol is persisted when value is changed according to CHANGE.
- persisted file contents match PRINTED-CHANGED.
- symbol is not persisted after value is set back to DEFAULT."
`(with-local-temp-persist
(let ((sym (cl-gensym)))
(should-not (file-exists-p (persist--file-location sym)))
(set sym ,init)
(persist-symbol sym ,default)
(persist-save sym)
(should t)
(should-not (file-exists-p (persist--file-location sym)))
,change
(persist-save sym)
(should (file-exists-p (persist--file-location sym)))
(should
(string-match-p
,printed-changed
(with-temp-buffer
(insert-file-contents (persist--file-location sym))
(buffer-string))))
(set sym ,default)
(persist-save sym)
(should-not (file-exists-p (persist--file-location sym))))))
(ert-deftest test-persist-save-non-number ()
"Test saving something that is not a number.
(ert-deftest test-persist-save-number ()
"Test saving number."
(persist-test-persist-save 1 1 (set sym 2) "2"))
`test-persist-save' missed "
(with-local-temp-persist
(let ((sym (cl-gensym)))
(set sym "fred")
(persist-symbol sym "fred")
(persist-save sym)
(should t)
(should-not (file-exists-p (persist--file-location sym)))
(set sym "george")
(persist-save sym)
(should (file-exists-p (persist--file-location sym)))
(should
(string-match-p
"george"
(with-temp-buffer
(insert-file-contents (persist--file-location sym))
(buffer-string)))))))
(ert-deftest test-persist-save-string ()
"Test saving string."
(persist-test-persist-save "foo" "foo" (set sym "bar") "bar"))
(ert-deftest test-persist-save-hash ()
"Test saving hash table."
(let* ((hash (make-hash-table))
(default (copy-hash-table hash)))
(persist-test-persist-save hash default
(puthash 'foo "bar" (symbol-value sym))
"#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data (foo \"bar\"))")))
(ert-deftest test-persist-save-record ()
"Test saving record."
(let* ((rec (record 'foo 'a 'b))
(default (copy-sequence rec)))
(persist-test-persist-save rec default
(setf (aref (symbol-value sym) 2) 'quux)
"#s(foo a quux)")))
(ert-deftest test-persist-load ()
(with-local-temp-persist
@@ -128,3 +134,13 @@
(should-error
(persist-save 'fred)))
(delete-directory "./persist-defined-location" t)))
(ert-deftest test-persist-reset ()
"Symbol should be reset to a copy of the default."
(with-local-temp-persist
(persist-defvar persist--test-reset-variable (make-hash-table) "docstring")
(should-not (eq persist--test-reset-variable
(persist-default 'persist--test-reset-variable)))
(persist-reset 'persist--test-reset-variable)
(should-not (eq persist--test-reset-variable
(persist-default 'persist--test-reset-variable)))))