lexerUnsignedFloat = TestCase $ do
  tokens <- getLexerReprs [ BpLine "69.11" ]
  assertEqual "line of int should equal" tokens [ LpFloat 69.11 ]
lexerUnsignedFloat = TestCase $ do
  tokens <- getLexerReprs [ BpLine "69.11" ]
  assertEqual "line of int should equal" tokens [ LpFloat 69.11 ]
lexerUnsignedFloat = TestCase $ do
  tokens <- getLexerReprs [ BpLine "69.11" ]
  assertEqual "line of int should equal" tokens [ LpFloat 69.11 ]