aoc2024/test/Main.hs

module Main (main) where
import Test.Hspec
import Day1
import Day2

main :: IO ()
main = do
  day1in <- readFile "test/1.testcase"
  day2in <- readFile "test/2.testcase"
  hspec $ do
    describe "Day1" $ do
      it "solves part 1" $ do
        Day1.part1 day1in `shouldBe` "11"
      it "solves part 2" $ do
        Day1.part2 day1in `shouldBe` "31"
    describe "Day 2" $ do
      it "solves part 1" $ do
        Day2.part1 day2in `shouldBe` "2"
      it "solves part 2" $ do
        Day2.part2 day2in `shouldBe` "4"