(use-package :clunit)

(defsuite 02/aoc (aoc))

(defvar 02/default-input
  '("forward 5"
    "down 5"
    "forward 8"
    "up 3"
    "down 8"
    "forward 2"))

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

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

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

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

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