adventofcode2022

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

day07.lisp (551B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day07+ "$ cd /
      4 $ ls
      5 dir a
      6 14848514 b.txt
      7 8504156 c.dat
      8 dir d
      9 $ cd a
     10 $ ls
     11 dir e
     12 29116 f
     13 2557 g
     14 62596 h.lst
     15 $ cd e
     16 $ ls
     17 584 i
     18 $ cd ..
     19 $ cd ..
     20 $ cd d
     21 $ ls
     22 4060174 j
     23 8033020 d.log
     24 5626152 d.ext
     25 7214296 k"
     26   :test 'equal)
     27 
     28 (def-test day07-task1 ()
     29   (is-true
     30    (= 95437
     31       (run-task 7 1
     32                 (make-string-input-stream +testdata-day07+)))))
     33 
     34 (def-test day07-task2 ()
     35   (is-true
     36    (= 24933642
     37       (run-task 7 2
     38                 (make-string-input-stream +testdata-day07+)))))