1 3c0eb591 2024-11-30 lh (uiop:define-package #:aoc-test/utils
 2 3c0eb591 2024-11-30 lh   (:use #:cl)
 3 3c0eb591 2024-11-30 lh   (:mix #:lisp-unit2 #:aoc/utils))
 4 3c0eb591 2024-11-30 lh (in-package #:aoc-test/utils)
 5 3c0eb591 2024-11-30 lh 
 6 3c0eb591 2024-11-30 lh (define-test test-read-input
 7 3c0eb591 2024-11-30 lh     ()
 8 3c0eb591 2024-11-30 lh   (with-input-from-string (stream "hello
 9 3c0eb591 2024-11-30 lh world")
10 3c0eb591 2024-11-30 lh     (assert-equalp '("hello" "world")
11 3c0eb591 2024-11-30 lh                    (read-input stream)))
12 3c0eb591 2024-11-30 lh   (with-input-from-string (stream "1
13 3c0eb591 2024-11-30 lh 2
14 3c0eb591 2024-11-30 lh 3
15 3c0eb591 2024-11-30 lh 
16 3c0eb591 2024-11-30 lh 3
17 3c0eb591 2024-11-30 lh 2
18 3c0eb591 2024-11-30 lh 1")
19 3c0eb591 2024-11-30 lh     (assert-equalp '(1 2 3 nil 3 2 1)
20 3c0eb591 2024-11-30 lh                    (read-input stream :type 'integer)))
21 3c0eb591 2024-11-30 lh   (with-input-from-string (stream "this
22 3c0eb591 2024-11-30 lh does
23 3c0eb591 2024-11-30 lh not
24 3c0eb591 2024-11-30 lh matter")
25 3c0eb591 2024-11-30 lh     (assert-equalp '(1 1 1 1)
26 3c0eb591 2024-11-30 lh                    (read-input stream :type (lambda (line)
27 3c0eb591 2024-11-30 lh                                               (declare (ignore line))
28 3c0eb591 2024-11-30 lh                                               1)))))
29 3c0eb591 2024-11-30 lh 
30 3c0eb591 2024-11-30 lh (define-test test-read-input-fields
31 3c0eb591 2024-11-30 lh     ()
32 3c0eb591 2024-11-30 lh   (with-input-from-string (stream "A 1
33 3c0eb591 2024-11-30 lh B 2
34 3c0eb591 2024-11-30 lh C 3
35 3c0eb591 2024-11-30 lh D
36 3c0eb591 2024-11-30 lh E 5
37 3c0eb591 2024-11-30 lh 
38 3c0eb591 2024-11-30 lh G 7")
39 3c0eb591 2024-11-30 lh     (assert-equalp '(("A" 1)
40 3c0eb591 2024-11-30 lh                      ("B" 2)
41 3c0eb591 2024-11-30 lh                      ("C" 3)
42 3c0eb591 2024-11-30 lh                      ("D" nil)
43 3c0eb591 2024-11-30 lh                      ("E" 5)
44 3c0eb591 2024-11-30 lh                      (nil nil)
45 3c0eb591 2024-11-30 lh                      ("G" 7))
46 3c0eb591 2024-11-30 lh                    (read-input-fields stream '(string integer)))))
47 3c0eb591 2024-11-30 lh 
48 3c0eb591 2024-11-30 lh (define-test test-read-input-match
49 3c0eb591 2024-11-30 lh     ()
50 3c0eb591 2024-11-30 lh   (with-input-from-string (stream "x: 1, y: 2
51 3c0eb591 2024-11-30 lh x: 3, y: 4
52 3c0eb591 2024-11-30 lh x: 2, y: 5")
53 3c0eb591 2024-11-30 lh     (assert-equalp '(("x" 1 "y" 2)
54 3c0eb591 2024-11-30 lh                      ("x" 3 "y" 4)
55 3c0eb591 2024-11-30 lh                      ("x" 2 "y" 5))
56 3c0eb591 2024-11-30 lh                    (read-input-match stream
57 3c0eb591 2024-11-30 lh                                      "(\\w+): (\\d+), (\\w+): (\\d+)"
58 3c0eb591 2024-11-30 lh                                      :types '(string integer string integer)))))