[elpa] externals/persist 326dc90 2/3: Update tests to changed semantics of save

[Phillip Lord]

branch: externals/persist
commit 326dc904639132e58912868b0b61b47ec8b7f383
Author: Phillip Lord <address@hidden>
Commit: Phillip Lord <address@hidden>

    Update tests to changed semantics of save
---
 test/persist-tests.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/test/persist-tests.el b/test/persist-tests.el
index 411984a..bedf0ae 100644
--- a/test/persist-tests.el
+++ b/test/persist-tests.el
@@ -3,6 +3,7 @@
 
 
 (defmacro with-local-temp-persist (&rest body)
+  (declare (debug body))
   `(unwind-protect
        (let ((persist--directory-location "./persist/")
              (persist--symbols nil))
@@ -29,10 +30,13 @@
      (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
-       "10"
+       "20"
        (with-temp-buffer
          (insert-file-contents (persist--file-location sym))
          (buffer-string))))
@@ -43,7 +47,8 @@
   (with-local-temp-persist
    (let ((sym (cl-gensym)))
      (set sym 10)
-     (persist-symbol sym 10)
+     ;; set this different to force save
+     (persist-symbol sym 1)
      (persist-save sym)
      (should (equal 10 (symbol-value sym)))
      (set sym 30)