From 023276e79c338503451836b4742af8d7c4be5438 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 2 Dec 2025 08:25:43 +0000
Subject: [PATCH] Test real inputs

---
 app/Main.hs      | 15 ++++++++++-----
 outputs/real/1/1 |  1 +
 outputs/real/1/2 |  1 +
 3 files changed, 12 insertions(+), 5 deletions(-)
 create mode 100644 outputs/real/1/1
 create mode 100644 outputs/real/1/2

diff --git a/app/Main.hs b/app/Main.hs
index 4ce3f9e..1f62990 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -21,11 +21,16 @@ main =
 
 puzzleTest :: Puzzle a -> TestTree
 puzzleTest p =
-    withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/examples/" <> show p.number)) mempty \input ->
-        testGroup (show p.number) $
-            [(1 :: Word, p.part1), (2, p.part2)] <&> \(n, pp) ->
-                goldenVsString (show n) ("outputs/examples/" <> show p.number <> "/" <> show n) $
-                    BL.fromStrict . encodeUtf8 . pp.solve <$> input
+    testGroup (show p.number) $
+        [ ("examples", "examples")
+        , ("real/2025", "real")
+        ]
+            <&> \(inFile, outFile) ->
+                withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> inFile <> "/" <> show p.number)) mempty \input ->
+                    testGroup outFile $
+                        [(1 :: Word, p.part1), (2, p.part2)] <&> \(n, pp) ->
+                            goldenVsString (show n) ("outputs/" <> outFile <> "/" <> show p.number <> "/" <> show n) $
+                                BL.fromStrict . encodeUtf8 . pp.solve <$> input
 
 data Puzzle input = Puzzle
     { number :: Word
diff --git a/outputs/real/1/1 b/outputs/real/1/1
new file mode 100644
index 0000000..9c6266b
--- /dev/null
+++ b/outputs/real/1/1
@@ -0,0 +1 @@
+1132
\ No newline at end of file
diff --git a/outputs/real/1/2 b/outputs/real/1/2
new file mode 100644
index 0000000..c932345
--- /dev/null
+++ b/outputs/real/1/2
@@ -0,0 +1 @@
+6623
\ No newline at end of file