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

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

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

--------------------------------------------------------------
--                         Utility                          --
--------------------------------------------------------------