mirror of
https://github.com/mrkkrp/megaparsec.git
synced 2024-11-24 03:52:07 +03:00
35 lines
863 B
Haskell
35 lines
863 B
Haskell
|
|
module Bugs.Bug35 (main) where
|
|
|
|
import Text.Megaparsec
|
|
import qualified Text.Megaparsec.Lexer as L
|
|
|
|
import Test.Framework
|
|
import Test.Framework.Providers.HUnit
|
|
import Test.HUnit hiding (Test)
|
|
|
|
trickyFloats :: [String]
|
|
trickyFloats =
|
|
[ "1.5339794352098402e-118"
|
|
, "2.108934760892056e-59"
|
|
, "2.250634744599241e-19"
|
|
, "5.0e-324"
|
|
, "5.960464477539063e-8"
|
|
, "0.25996181067141905"
|
|
, "0.3572019862807257"
|
|
, "0.46817723004874223"
|
|
, "0.9640035681058178"
|
|
, "4.23808622486133"
|
|
, "4.540362294799751"
|
|
, "5.212384849884261"
|
|
, "13.958257048123212"
|
|
, "32.96176575630599"
|
|
, "38.47735512322269" ]
|
|
|
|
testBatch :: Assertion
|
|
testBatch = mapM_ testFloat trickyFloats
|
|
where testFloat x = parse L.float "" x @?= Right (read x :: Double)
|
|
|
|
main :: Test
|
|
main = testCase "Output of Text.Megaparsec.Lexer.float (#35)" testBatch
|