adventofcode2022

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

day01.lisp (411B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day01+ "1000
      4 2000
      5 3000
      6 
      7 4000
      8 
      9 5000
     10 6000
     11 
     12 7000
     13 8000
     14 9000
     15 
     16 10000"
     17   :test 'equal)
     18 
     19 (def-test day01-task1 ()
     20   (is-true
     21    (= 24000
     22       (run-task 1 1
     23                 (make-string-input-stream +testdata-day01+)))))
     24 
     25 (def-test day01-task2 ()
     26   (is-true
     27    (= 45000
     28       (run-task 1 2
     29                 (make-string-input-stream +testdata-day01+)))))