1 (defpackage #:aoc-test/day-4
2   (:use #:cl #:lisp-unit2)
3   (:import-from #:aoc/day-4))
4 (in-package #:aoc-test/day-4)
5 
6 (define-test test-day-4
7     ()
8   (multiple-value-bind (task-1 task-2)
9       (aoc:run-day 4 "MMMSXXMASM
10 MSAMXMSMSA
11 AMXSXMAAMM
12 MSAMASMSMX
13 XMASAMXAMM
14 XXAMMXXAMA
15 SMSMSASXSS
16 SAXAMASAAA
17 MAMMMXMMMM
18 MXMXAXMASX")
19     (assert= 18 task-1)
20     (assert= 9 task-2)))