Add some tests for ebib--filters-pp-filter.

joostkremers · Nov 9, 2024 · 943f3d3 · 943f3d3
1 parent eb4df5f
commit 943f3d3
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/test/ebib-test.el b/test/ebib-test.el
@@ -97,6 +97,20 @@
                    (ebib--process-citation-template "%A %K %A" "Abney1987"))
                  "cf. Abney1987 p. 20")))
 
+;;; Tests for filters
+(ert-deftest ebib--filters-pp-filter-test ()
+  (should (equal (let ((ebib-filters-display-as-lisp nil))
+                   (ebib--filters-pp-filter '(or (contains "author" "chomsky") (contains "editor" "chomsky"))))
+                 "(author contains \"chomsky\") or (editor contains \"chomsky\")"))
+  (should (equal (let ((ebib-filters-display-as-lisp t))
+                   (ebib--filters-pp-filter '(or (contains "author" "chomsky") (contains "editor" "chomsky"))))
+                 "(or (contains \"author\" \"chomsky\") (contains \"editor\" \"chomsky\"))"))
+  (should (equal (let ((ebib-filters-display-as-lisp nil))
+                   (ebib--filters-pp-filter '(or (contains "any" "chomsky") (contains "editor" "noam"))))
+                 "(any field contains \"chomsky\") or (editor contains \"noam\")"))
+  (should (equal (let ((ebib-filters-display-as-lisp nil))
+                   (ebib--filters-pp-filter '(and (contains "any" "chomsky") (not (contains "editor" "noam")))))
+                 "(any field contains \"chomsky\") and not (editor contains \"noam\")")))
 
 ;; TODO: Add tests for
 ;; `ebib-citation-prompt-with-format-string`