(defcomp
  (&key tests test-count)
  (div
    (~tw :tokens "mt-2")
    (div
      (~tw :tokens "flex items-center gap-1")
      (span (~tw :tokens "text-xs font-medium text-stone-500") "Tests")
      (span
        (~tw :tokens "text-xs px-1.5 py-0.5 rounded bg-violet-100 text-violet-700")
        (str test-count)))
    (ul
      (~tw :tokens "mt-1 text-xs text-stone-500 list-none")
      (map
        (fn
          (t)
          (li
            (~tw :tokens "flex items-center gap-1")
            (span (~tw :tokens "text-green-500 text-xs") "●")
            (get t "name")))
        tests))))
