diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-12-14 01:03:25 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-12-14 01:03:25 +0000 |
| commit | c05f929f4a3c882215f073fcec17f7f67f74b118 (patch) | |
| tree | f2d1f2dc610e4c2a4ec116d6aa29c305791145b1 /test/01.lisp | |
| parent | 070f6560bc16d6d27d304b0f37471cdf6c8c5ff8 (diff) | |
| download | aoc21-c05f929f4a3c882215f073fcec17f7f67f74b118.tar.gz aoc21-c05f929f4a3c882215f073fcec17f7f67f74b118.zip | |
Add top-level lisp file
Diffstat (limited to 'test/01.lisp')
| -rw-r--r-- | test/01.lisp | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/test/01.lisp b/test/01.lisp index aa02b7d..46bb1b5 100644 --- a/test/01.lisp +++ b/test/01.lisp @@ -1,9 +1,6 @@ -(ql:quickload "clunit") -(load "../src/01.lisp") - (use-package :clunit) -(defsuite aoc-01 ()) +(defsuite 01/aoc (aoc)) (defvar 01/default-input nil) @@ -22,20 +19,20 @@ ;;(time (format t "part 1: ~a~%" (part-a (parse-input "../inputs/01.txt")))) ;;(time (format t "part 1: ~a~%" (part-b (parse-input "../inputs/01.txt")))) -(deftest 01/test-ex-a (aoc-01) +(deftest 01/test-ex-a (01/aoc) (let ((result (01/part-a (01/parse-input-direct 01/default-input)))) (assert-equalp 7 result))) -(deftest 01/test-ex-b (aoc-01) +(deftest 01/test-ex-b (01/aoc) (let ((result (01/part-b (01/parse-input-direct 01/default-input)))) (assert-equalp 5 result))) -(deftest 01/test-a (aoc-01) - (let ((result (01/part-a (01/parse-input "../inputs/01.txt")))) +(deftest 01/test-a (01/aoc) + (let ((result (01/part-a (01/parse-input "inputs/01.txt")))) (assert-equalp 1451 result))) -(deftest 01/test-b (aoc-01) - (let ((result (01/part-b (01/parse-input "../inputs/01.txt")))) +(deftest 01/test-b (01/aoc) + (let ((result (01/part-b (01/parse-input "inputs/01.txt")))) (assert-equalp 1395 result))) -(run-suite 'aoc-01) +(defun 01/run-tests () (run-suite '01/aoc)) |