e (lexer "123")   === (I 123, [])
             , parserTestOK pValue (lexer "-123")  === (I (-123), [])
             , parserTestOK pValue (lexer "true")  === (B True, [])
             , parserTestOK pValue (lexer "false") === (B False, [])
             ]

testsExpr = [ parserTestOK pExpr (lexer "
testsValue = [ parserTestOK pValue (lexer "123")   === (I 123, [])
             , parserTestOK pValue (lexer "-123")  === (I (-123), [])
             , parserTestOK pValue (lexer "true")  === (B True, [])
             , parserTestOK pValue (lexer "false") === (B False, [])
             ]
testsValue = [ parserTestOK pValue (lexer "123")   === (I 123, [])
             , parserTestOK pValue (lexer "-123")  === (I (-123), [])
             , parserTestOK pValue (lexer "true")  === (B True, [])
             , parserTestOK pValue (lexer "false") === (B False, [])
             ]