(use-package :clunit)

(defsuite 05/aoc (aoc))

(defvar 05/default-input
  '("0,9 -> 5,9"
    "8,0 -> 0,8"
    "9,4 -> 3,4"
    "2,2 -> 2,1"
    "7,0 -> 7,4"
    "6,4 -> 2,0"
    "0,9 -> 2,9"
    "3,4 -> 1,4"
    "0,0 -> 8,8"
    "5,5 -> 8,2"))

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

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

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

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

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