(use-package :clunit)

(defsuite 03/aoc (aoc))

(defvar 03/default-input
  '("00100"
    "11110"
    "10110"
    "10111"
    "10101"
    "01111"
    "00111"
    "11100"
    "10000"
    "11001"
    "00010"
    "01010"))

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

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

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

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

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