yogsototh/adventofcode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added some tests

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2017-12-09 03:27:34 +01:00
parent e92425f531
commit 6975f6f740
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/Spec.hs
View file

@ -7,6 +7,7 @@ import qualified Day1
import qualified Day2 import qualified Day2
import qualified Day5 import qualified Day5
import qualified Day6 import qualified Day6
import qualified Day7
import Control.Monad (when) import Control.Monad (when)
main :: IO () main :: IO ()
@ -64,10 +65,11 @@ main = defaultMain $
] ]
, testGroup "Day 7" , testGroup "Day 7"
[ testCaseSteps "example problem 1" $ \step -> do [ testCaseSteps "example problem 1" $ \step -> do
step "Loading test input"
input <- Day7.testNodes
step "Running solution 1" step "Running solution 1"
sol1 <- Day7.rootOf input let input = Day7.testNodes
let sol1 = maybe "" Day7.name (Day7.rootOf input)
when (sol1 /= "tknk") (assertFailure "The root should be tknk") when (sol1 /= "tknk") (assertFailure "The root should be tknk")
, testCase "example on solution 2" $
maybe 0 snd (Day7.solution2 Day7.testNodes) @?= 60
] ]
] ]