Blob


1 (defpackage #:aoc-test/day-14
2 (:use #:cl #:lisp-unit2)
3 (:import-from #:aoc/day-14))
4 (in-package #:aoc-test/day-14)
6 (define-test test-day-14
7 ()
8 (with-input-from-string (s "p=0,4 v=3,-3
9 p=6,3 v=-1,-3
10 p=10,3 v=-1,2
11 p=2,0 v=2,-1
12 p=0,0 v=1,3
13 p=3,0 v=-2,-2
14 p=7,6 v=-1,-3
15 p=3,0 v=-1,-2
16 p=9,3 v=2,3
17 p=7,3 v=-1,2
18 p=2,4 v=2,-3
19 p=9,5 v=-3,-3")
20 (assert= 12 (aoc/day-14:task-1 (aoc/day-14:parse-robots s) 11 7))))