aoc-cl/tests/2024/day12-test.lisp

(defpackage :aoc/2024/12/tests
            (:use :cl :aoc :aoc/tests :aoc/2024/tests :parachute :aoc/2024/12))

(in-package :aoc/2024/12/tests)

(define-test suite-2024-12
                                        ;
					;:parent suite-2024
					;)
  )

(define-test test-find-same-neighbors
  :parent suite-2024-12
  (is equal '((1 . 0) (0 . 1)) (find-same-neighbors sample-data 0 0))
  
  (is equal '((2 . 2) (3 . 1) (4 . 2)) (find-same-neighbors sample-data 3 2))
  ) 


(define-test test-bar
  :parent suite-2024-12)

(define-test+run test-part1
  :parent suite-2024-12
  (is equal nil (part1 sample-data)))

(define-test+run test-part2
  :parent suite-2024-12
  (is equal nil (part2 sample-data)))