(use-package :clunit)

(defsuite 06/aoc (aoc))

(defvar 06/default-input '("3,4,3,1,2"))

(deftest 06/test-ex-a (06/aoc)
  (let ((result (06/part-a (06/parse-input-direct 06/default-input))))
    (assert-equalp 5934 result)))

(deftest 06/test-ex-b (06/aoc)
  (let ((result (06/part-b (06/parse-input-direct 06/default-input))))
    (assert-equalp 26984457539 result)))

(deftest 06/test-a (06/aoc)
  (let ((result (06/part-a (06/parse-input "inputs/06.txt"))))
    (assert-equalp 372300 result)))

(deftest 06/test-b (06/aoc)
  (let ((result (06/part-b (06/parse-input "inputs/06.txt"))))
    (assert-equalp 1675781200288 result)))

(defun 06/run-tests () (run-suite '06/aoc))