From 31d848750cbaa568d227595a93e24568ab9dca6a Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Tue, 13 Dec 2022 16:35:16 +0100 Subject: explicit tests --- AoC2022/13/solver.el | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'AoC2022/13') diff --git a/AoC2022/13/solver.el b/AoC2022/13/solver.el index b3b636b..3039c1e 100644 --- a/AoC2022/13/solver.el +++ b/AoC2022/13/solver.el @@ -42,16 +42,15 @@ result))))) (ert-deftest test-comparison () - (pcase-dolist (`(,f ,s ,r) - '((5 5 next) - (5 nil nil) - (nil 5 t) - (nil nil next) - ('(9) '((8 7)) nil) - ('(1 1 3 1 1) '(1 1 5 1 1) t) - ('((1) (2 3 4)) '((1) 4) t) - ('() '(5) t))) - (should (eq (solver-compare f s) r)))) + (should (eq (solver-compare 5 5) 'next)) + (should (eq (solver-compare nil nil) 'next)) + (should-not (solver-compare 5 nil)) + (should (solver-compare nil 5)) + (should (eq (solver-compare '(9) '((8 7))) nil)) + (should (solver-compare '(1 1 3 1 1) '(1 1 5 1 1))) + (should (solver-compare '((1) (2 3 4)) '((1) 4))) + (should (solver-compare '() '(5)))) + (defun solver-p1 (filename) (cl-loop -- cgit v1.2.3