Blob


1 (defpackage #:aoc-test/day-1
2 (:use #:cl #:lisp-unit2)
3 (:import-from aoc/day-1))
4 (in-package #:aoc-test/day-1)
6 (define-test test-day-1
7 ()
8 (multiple-value-bind (task-1 task-2)
9 (aoc:run-day 1 "3 4
10 4 3
11 2 5
12 1 3
13 3 9
14 3 3")
15 (assert= 11 task-1)
16 (assert= 31 task-2)))