Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add weekend test

Browse source
This commit is contained in:
Joscha 2018-04-06 19:02:26 +00:00
parent 476c6c2bfb
commit 1b93fce200
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/Tests/DateExpr.hs
View file

@ -55,19 +55,25 @@ prop_ParseComplicated a b c d e =
- BoolExpr properties
-}
prop_ParseLeapYears :: Integer -> Property
prop_ParseLeapYears a =
let formula = "((year%400 == 0) || ((year%4 == 0) && (year%100 != 0))) == isleapyear"
prop_FindWeekends :: Integer -> Property
prop_FindWeekends a =
let formula = "(weekday == saturday || weekday == sunday) == isweekend"
in parseEvalBool formula (toDay a) === Just True
prop_FindLeapYears :: Integer -> Property
prop_FindLeapYears a =
let formula = "(year%400 == 0 || (year%4 == 0 && year%100 != 0)) == isleapyear"
in parseEvalBool formula (toDay a) === Just True
testDateExpr :: SpecWith ()
testDateExpr = describe "Date expressions" $ do
describe "IntExpr" $ do
it "parses integers" $ property prop_ParseInteger
it "parses addition and subtraction" $ property prop_ParseAddSub
it "parses multiplication and division" $ property prop_ParseMultDiv
it "parses a complicated equation" $ property prop_ParseComplicated
it "evaluates addition and subtraction" $ property prop_ParseAddSub
it "evaluates multiplication and division" $ property prop_ParseMultDiv
it "evaluates a complicated equation" $ property prop_ParseComplicated
describe "BoolExpr" $ do
it "parses \"true\"" $ parseEvalBool "true" anyDay `shouldBe` Just True
it "parses \"false\"" $ parseEvalBool "false" anyDay `shouldBe` Just False
it "parses leap years" $ property prop_ParseLeapYears
it "finds weekends" $ property prop_FindWeekends
it "finds leap years" $ property prop_FindLeapYears