From 4b5c7687bf72af7f253f8b38a175f8e2c5f18cd3 Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Sat, 15 Jun 2024 11:26:49 -0700 Subject: [PATCH] Also test that persist-reset does not reset to initial value --- test/persist-tests.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/test/persist-tests.el b/test/persist-tests.el index d571325fae..4439fa3e07 100644 --- a/test/persist-tests.el +++ b/test/persist-tests.el @@ -137,10 +137,17 @@ (ert-deftest test-persist-location () (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)))))) -- 2.41.0