testCondExpr :: Test
testCondExpr = TestList
  [ testEq "Parse if expression"
           (IfExpr (UnaryOpExpr IsZero (constNum 3)) (constNum 4) (constNum 5))
           "if zero?(3) then 4 else 5"
  ]
testCondExpr :: Test
testCondExpr = TestList
  [ testEq "Parse if expression"
           (IfExpr (UnaryOpExpr IsZero (constNum 3)) (constNum 4) (constNum 5))
           "if zero?(3) then 4 else 5"
  ]
testCondExpr = TestList
  [ testEq "Parse if expression"
           (IfExpr (UnaryOpExpr IsZero (constNum 3)) (constNum 4) (constNum 5))
           "if zero?(3) then 4 else 5"
  ]