You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
520 B
20 lines
520 B
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"
|