Solve 2024-01

test/spec/AoCSpec/Y2024Spec.hs

@@ -0,0 +1,28 @@
+module AoCSpec.Y2024Spec (spec) where
+
+import AoC
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  describe "Day 1" do
+    it "calculates correctly" do
+      runAoC Y2024 D01 `shouldReturn` Right [2580760, 25358365]
+
+{-
+  describe "Day 2" do
+    it "calculates correctly" do
+      runAoC Y2024 D02 `shouldReturn` Right [2369, 66363]
+
+  describe "Day 3" do
+    it "calculates correctly" do
+      runAoC Y2023 D03 `shouldReturn` Right [528799, 84907174]
+
+  describe "Day 4" do
+    it "calculates correctly" do
+      runAoC Y2023 D04 `shouldReturn` Right [24542, 8736438]
+
+  describe "Day 5" do
+    it "calculates the example correctly" do
+      runAoCExample Y2023 D05 `shouldReturn` Right [35]
+-}