1 (defpackage #:aoc-test/all
2   (:use #:cl #:lisp-unit2)
3   (:nicknames #:aoc-test)
4   (:import-from #:aoc-test/utils)
5   (:export
6    #:test-day
7    #:test-all))
8 (in-package #:aoc-test/all)
9 
10 (defun test-day (&optional (day (aoc:today)))
11   (run-tests :package (format nil "AOC-TEST/DAY-~A" day)
12              :run-contexts 'with-summary-context))
13 
14 ;; TODO: the recursive asdf/ql stuff might not be so great here
15 (defun test-all ()
16   (run-tests :tests (nconc
17                      (get-tests :package '#:aoc-test/utils)
18                      (loop for day from 1 to 25
19                            for system-name = (format nil "aoc-test/day-~A" day)
20                            for system = (asdf:find-system system-name nil)
21                            when system
22                              do (ql:quickload system-name)
23                              and nconc (get-tests :package (string-upcase system-name))))
24              :run-contexts 'with-summary-context))