;; lib/minikanren/tests/lengtho-i.sx — integer-indexed length (fast).

(mk-test "lengtho-i-empty" (run* q (lengtho-i (list) q)) (list 0))
(mk-test
  "lengtho-i-singleton"
  (run* q (lengtho-i (list :a) q))
  (list 1))
(mk-test
  "lengtho-i-three"
  (run* q (lengtho-i (list 1 2 3) q))
  (list 3))
(mk-test
  "lengtho-i-five"
  (run*
    q
    (lengtho-i
      (list 1 2 3 4 5)
      q))
  (list 5))

(mk-test
  "lengtho-i-mixed-types"
  (run*
    q
    (lengtho-i (list 1 "two" :three (list 4 5)) q))
  (list 4))

(mk-tests-run!)