test: implement plistp

blahgeek · Jan 3, 2024 · 29235c8 · 29235c8
1 parent e897c29
commit 29235c8
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/tests/benchmark_and_compare.template.el b/tests/benchmark_and_compare.template.el
@@ -23,6 +23,11 @@
   (and (listp x)
        (-all (lambda (e) (and (consp e) (symbolp (car e)))) x)))
 
+(defun -plistp (x)
+  (and (listp x)
+       x
+       (keywordp (car x))))
+
 (defun -sort-alist (x)
   (sort x (lambda (a b) (string< (symbol-name (car a)) (symbol-name (car b))))))
 
@@ -60,8 +65,8 @@
           (equal (length a) (length b))
           (-check-equal-sorted-alist (-sort-alist a)
                                      (-sort-alist b))))
-    ((pred plistp)
-     (and (plistp b)
+    ((pred -plistp)  ;; plistp is not available before emacs29
+     (and (-plistp b)
           (equal (length a) (length b))
           (-check-equal-sorted-alist (-plist-to-sorted-alist a)
                                      (-plist-to-sorted-alist b))))