adventofcode2022

My solutions for Advent of Code 2022
Log | Files | Refs

day09.lisp (495B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day09-task1+ "R 4
      4 U 4
      5 L 3
      6 D 1
      7 R 4
      8 D 1
      9 L 5
     10 R 2"
     11   :test 'equal)
     12 
     13 (define-constant +testdata-day09-task2+ "R 5
     14 U 8
     15 L 8
     16 D 3
     17 R 17
     18 D 10
     19 L 25
     20 U 20"
     21   :test 'equal)
     22 
     23 (def-test day09-task1 ()
     24   (is-true
     25    (= 13
     26       (run-task 9 1
     27                 (make-string-input-stream +testdata-day09-task1+)))))
     28 
     29 (def-test day09-task2 ()
     30   (is-true
     31    (= 36
     32       (run-task 9 2
     33                 (make-string-input-stream +testdata-day09-task2+)))))