lexerSignedInteger = TestCase $ do
  tokens <- getLexerReprs [ BpLine "-123" ]
  assertEqual "line of int should equal" tokens [ LpInteger (-123) ]
lexerSignedInteger = TestCase $ do
  tokens <- getLexerReprs [ BpLine "-123" ]
  assertEqual "line of int should equal" tokens [ LpInteger (-123) ]
lexerSignedInteger = TestCase $ do
  tokens <- getLexerReprs [ BpLine "-123" ]
  assertEqual "line of int should equal" tokens [ LpInteger (-123) ]