Introduce persistent storage for filters

1 files changed, 19 insertions, 0 deletions

diff --git a/test/tests.el b/test/tests.el
index 44b0de0..fa60364 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -75,3 +75,22 @@
                              ((should-not-go))
                              ((1 . alpha) (2 . beta))]
                             '(1 2 3)))))
+
+(ert-deftest test-filters ()
+  ;; Ensure the file is empty
+  (ignore-errors
+    (delete-file
+     (stack-cache-get-file-name
+      stack-filter-cache-file)))
+
+  (should-error (stack-filter-store "names must be symbols"
+                                    "this is a filter"))
+  ;; basic use
+  (should (equal '((test . "filter"))
+                 (stack-filter-store 'test "filter")))
+  ;; aggregation
+  (should (equal '((test2 . "filter2") (test . "filter"))
+                 (stack-filter-store 'test2 "filter2")))
+  ;; mutation
+  (should (equal '((test2 . "filter2") (test . "filter-test"))
+                 (stack-filter-store 'test "filter-test"))))