foo.clj

;; could work
(expect
  (more-of tree
           SUCCESS (tick {:foo 41} tree {})
           SUCCESS (tick {:foo 41} tree {}))
  (aidoc/compile [:test? {:key :foo :val 42}]))
  
 ;; but I strongly dislike putting fn calls in more. I'd probably use from-each
 (expect SUCCESS
  (let [tree (aidoc/compile [:test? {:key :foo :val 42}])]
    (from-each [val [41 41]]
      (tick {:foo val} tree {}))))