(use-package :clunit)

(defsuite 01/aoc (aoc))

(defvar 01/default-input
  '("199"
    "200"
    "208"
    "210"
    "200"
    "207"
    "240"
    "269"
    "260"
    "263"))

;;(time (format t "part 1: ~a~%" (part-a (parse-input "../inputs/01.txt"))))
;;(time (format t "part 1: ~a~%" (part-b (parse-input "../inputs/01.txt"))))

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

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

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

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

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