41 lines
1.3 KiB
Haskell
41 lines
1.3 KiB
Haskell
import Test.Hspec
|
|
|
|
import Tests.DateExpr
|
|
|
|
{-
|
|
parseEval :: String -> Maybe Integer
|
|
parseEval str =
|
|
let day = ModifiedJulianDay 0
|
|
expr = TM.parseIntExpr str
|
|
in expr >>= flip TM.evalIntExpr day
|
|
|
|
prop_ParseInteger :: Integer -> Bool
|
|
prop_ParseInteger n = parseEval (show n) == Just n
|
|
|
|
prop_ParseAddSub :: Integer -> Integer -> Integer -> Integer -> Bool
|
|
prop_ParseAddSub a b c d =
|
|
let formula = show a ++ "+" ++ show b ++ "- (" ++ show c ++ "+" ++ show d ++ ")"
|
|
expected = a + b - (c + d)
|
|
in parseEval formula == Just expected
|
|
|
|
prop_ParseMultDiv :: Integer -> Integer -> Integer -> Integer -> Property
|
|
prop_ParseMultDiv a b c d =
|
|
let formula = show a ++ "*" ++ show b ++ "/ (" ++ show c ++ "*" ++ show d ++ ")"
|
|
expected = a * b `div` (c * d)
|
|
in (c * d /= 0) ==> parseEval formula == Just expected
|
|
|
|
main :: IO ()
|
|
main = hspec $ do
|
|
describe "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" $
|
|
parseEval "12 - (2 / 5) * 3 + ((37))" `shouldBe` Just (12 - (2 `div` 5) * 3 + 37)
|
|
describe "BoolExpr" $ do
|
|
-}
|
|
|
|
main :: IO ()
|
|
main = hspec $ do
|
|
testDateExpr
|