testConstExpr :: Test
testConstExpr = TestList
  [ testEq "Parse single number" (constNum 5) "5"
  , testEq "Parse multi-numbers" (constNum 123) "123"
  , testEq "Parse negative number" (constNum (-233)) "-233"
  ]
testConstExpr :: Test
testConstExpr = TestList
  [ testEq "Parse single number" (constNum 5) "5"
  , testEq "Parse multi-numbers" (constNum 123) "123"
  , testEq "Parse negative number" (constNum (-233)) "-233"
  ]
testConstExpr = TestList
  [ testEq "Parse single number" (constNum 5) "5"
  , testEq "Parse multi-numbers" (constNum 123) "123"
  , testEq "Parse negative number" (constNum (-233)) "-233"
  ]