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-11-25 19:52:03 +01:00
parent 14ba373378
commit dbbae92267
280 changed files with 13451 additions and 11207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,7 +15,7 @@
(let ((persist--symbols nil)
(sym (cl-gensym)))
(persist-symbol sym 10)
(seq-contains persist--symbols sym))))
(seq-contains-p persist--symbols sym))))
(ert-deftest test-persist-save-only-persistant ()
;; do not save not persist variables
@@ -67,7 +67,9 @@
(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\"))")))
(if (<= 30 emacs-major-version)
"#s(hash-table data (foo \"bar\"))\n"
"#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."
@@ -108,6 +110,18 @@
(should (= 20
(persist-default 'test-persist-variable)))))
(ert-deftest test-persist-default-set-to-initvalue ()
(persist-defvar test-persist-variable-default 'INIT "Docstring.")
(setq test-persist-variable-default 'CHANGED)
(persist-defvar test-persist-variable-default 'INIT "Docstring.")
(should (equal 'INIT (persist-default 'test-persist-variable-default))))
(ert-deftest test-persist-default-nil-initvalue ()
(persist-defvar test-persist-variable-default nil "Docstring.")
(setq test-persist-variable-default 'CHANGED)
(persist-defvar test-persist-variable-default nil "Docstring.")
(should (null (persist-default 'test-persist-variable-default))))
(ert-deftest test-persist-location ()
(unwind-protect
(let ((sym (cl-gensym)))
@@ -137,10 +151,17 @@
(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)))))
(let ((initial-value (make-hash-table)))
(with-local-temp-persist
(persist-defvar persist--test-reset-variable initial-value "docstring")
(should-not (eq persist--test-reset-variable
(persist-default 'persist--test-reset-variable)))
(should-not (eq persist--test-reset-variable initial-value))
(should-not (eq initial-value
(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)))
(should-not (eq persist--test-reset-variable initial-value))
(should-not (eq initial-value
(persist-default 'persist--test-reset-variable))))))