pti/aoc-cl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

work on tests

Browse source
This commit is contained in:
Peter Tillemans 2024-11-29 22:01:23 +01:00
parent c51112384e
commit f529882dd6
3 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/2018/day06.lisp
View file

@ -19,6 +19,9 @@
(defvar input-data '()) (defvar input-data '())
(setf input-data (map 'list #'parse-line (test-input 2018 6))) (setf input-data (map 'list #'parse-line (test-input 2018 6)))
(defvar input-data '())
(setf input-data (map 'list #'parse-line (test-input 2018 6)))
(defstruct vector-2d (defstruct vector-2d
(x 0 :type fixnum) (x 0 :type fixnum)
(y 0 :type fixnum)) (y 0 :type fixnum))
@ -34,6 +37,7 @@
(abs (vector-2d-x diff)) (abs (vector-2d-x diff))
(abs (vector-2d-y diff))))) (abs (vector-2d-y diff)))))
(defvar sample-data '((1 1) (defvar sample-data '((1 1)
(1 6) (1 6)
(8 3) (8 3)
@ -41,8 +45,6 @@
(5 5) (5 5)
(8 9))) (8 9)))
(defun make-vectors (data) (defun make-vectors (data)
(map 'list (lambda (p) (make-vector-2d :x (first p) :y (second p))) data)) (map 'list (lambda (p) (make-vector-2d :x (first p) :y (second p))) data))

7
test/2018/day06-test.lisp
View file

@ -1,9 +1,10 @@
(defpackage :aoc/2018/06/tests (defpackage :aoc/2018/06
(:use :cl :aoc :aoc/2018/06 :parachute)) (:use :cl :aoc :aoc/tests :parachute))
(in-package :aoc/2018/06/tests) (in-package :aoc/2018/06/tests)
(define-test suite-2018-06) (define-test suite-2018-06
:parent suite-2018)
(define-test+run find-top-left (define-test+run find-top-left
:parent suite-2018-06 :parent suite-2018-06

3
tests/main.lisp
View file

@ -1,5 +1,6 @@
(defpackage aoc/tests (defpackage aoc/tests
(:use :cl :aoc :parachute)) (:use :cl :aoc :parachute
:aoc/2018/06 ))
(in-package :aoc/tests) (in-package :aoc/tests)