mirror of
https://codeberg.org/JasterV/aoc2024-haskell.git
synced 2026-04-26 18:10:05 +00:00
27 lines
557 B
Haskell
27 lines
557 B
Haskell
module Day8Spec (spec) where
|
|
|
|
import Day8 (partOne, partTwo)
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "PartOne" $ do
|
|
it "works" $ do
|
|
partOne input `shouldBe` 14
|
|
describe "PartTwo" $ do
|
|
it "works" $ do
|
|
partTwo input `shouldBe` 34
|
|
where
|
|
input =
|
|
"............\n\
|
|
\........0...\n\
|
|
\.....0......\n\
|
|
\.......0....\n\
|
|
\....0.......\n\
|
|
\......A.....\n\
|
|
\............\n\
|
|
\............\n\
|
|
\........A...\n\
|
|
\.........A..\n\
|
|
\............\n\
|
|
\............"
|