From c05f929f4a3c882215f073fcec17f7f67f74b118 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 14 Dec 2021 01:03:25 +0000 Subject: Add top-level lisp file --- test/02.lisp | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'test/02.lisp') diff --git a/test/02.lisp b/test/02.lisp index fd1a7ea..631dd92 100644 --- a/test/02.lisp +++ b/test/02.lisp @@ -1,9 +1,6 @@ -(ql:quickload "clunit") -(load "../src/02.lisp") - (use-package :clunit) -(defsuite 02/aoc ()) +(defsuite 02/aoc (aoc)) (defvar 02/default-input nil) @@ -24,11 +21,11 @@ (assert-equalp 900 result))) (deftest 02/test-a (02/aoc) - (let ((result (02/part-a (02/parse-input "../inputs/02.txt")))) + (let ((result (02/part-a (02/parse-input "inputs/02.txt")))) (assert-equalp 1561344 result))) (deftest 02/test-b (02/aoc) - (let ((result (02/part-b (02/parse-input "../inputs/02.txt")))) + (let ((result (02/part-b (02/parse-input "inputs/02.txt")))) (assert-equalp 1848454425 result))) -(run-suite '02/aoc) +(defun 02/run-tests () (run-suite '02/aoc)) -- cgit