23 lines
731 B
Haskell
23 lines
731 B
Haskell
|
import Test.Tasty
|
||
|
|
import Test.Tasty.HUnit
|
||
|
|
|
||
|
|
import qualified Day1
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = defaultMain $
|
||
|
|
testGroup "Day 1"
|
||
|
|
[ testGroup "solution 1"
|
||
|
|
[ testCase "1122 is 3" $ Day1.solution1 "1122" @?= 3
|
||
|
|
, testCase "1111 is 4" $ Day1.solution1 "1111" @?= 4
|
||
|
|
, testCase "1234 is 0" $ Day1.solution1 "1234" @?= 0
|
||
|
|
, testCase "91212129 is 9" $ Day1.solution1 "91212129" @?= 9
|
||
|
|
]
|
||
|
|
, testGroup "solution 2"
|
||
|
|
[ testCase "1212 is 6" $ Day1.solution2 "1212" @?= 6
|
||
|
|
, testCase "1221 is 0" $ Day1.solution2 "1221" @?= 0
|
||
|
|
, testCase "123425 is 0" $ Day1.solution2 "123425" @?= 4
|
||
|
|
, testCase "123123 is 12" $ Day1.solution2 "123123" @?= 12
|
||
|
|
, testCase "12131415 is 4" $ Day1.solution2 "12131415" @?= 4
|
||
|
|
]
|
||
|
|
]
|