Test assoc-path functionHEADmaster

1 files changed, 23 insertions, 0 deletions

diff --git a/t/tests.lisp b/t/tests.lisp
index d7863a1..20862a2 100644
--- a/t/tests.lisp
+++ b/t/tests.lisp
@@ -7,6 +7,29 @@
   :description "Check that ledgerplot behaves correctly.")
 (in-suite :ledgerplot)
 
+(test assoc-path
+  ;; Simple cases.
+  (is (equalp 'foo (ledgerplot::assoc-path 'foo)))
+  (is (equalp 'foo (ledgerplot::assoc-path '(foo) 0)))
+  (is (equalp 0 (ledgerplot::assoc-path '((:foo . 0)) :foo)))
+  ;; Make sure the example in the docstring works.
+  (is (equalp 1 (ledgerplot::assoc-path
+                 '((a . ((b . (0 1 2)))))
+                 'a 'b 1)))
+  ;; A moderately complex example, involving alists and lists, with values
+  ;; that mustn't be used.
+  (is (equalp :yes (ledgerplot::assoc-path
+                    '((:foo . :no)
+                      (:bar . :also-no)
+                      (:quux .
+                       (:no :no ((:key . :yes))))
+                      (:qax . ((:no :no :no))))
+                    :quux 2 :key)))
+  ;; Missing keys raise an error.
+  (signals t (ledgerplot::assoc-path '((bar . t)) 'foo))
+  ;; Lists rely on `nth' behaviour; null for entries past the end.
+  (is (null (ledgerplot::assoc-path '(foo) 10))))
+
 (test narrow-range
   (let ((today (local-time:format-timestring
                 nil (local-time:today)