shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Change test

--- a/tests/Read.hs

+++ b/tests/Read.hs

@@ -33,8 +33,7 @@

   print (readMaybe "123" :: Maybe Int)

   print (readMaybe "apa" :: Maybe Int)

   print (read "1.25" :: Double)

-  print (read "-1e20" :: Double)

-  print (read "-1e+5" :: Double)

+  print (read "-1e5" :: Double)

   print (read "1.5e+5" :: Double)

   print (read "5e-1" :: Double)

   print (read "[EQ,GT,LT]" :: [Ordering])

--- a/tests/Read.ref

+++ b/tests/Read.ref

@@ -23,7 +23,6 @@

 Just 123

 Nothing

 1.25

--1e+20

 -100000.0

 150000.0

 0.5

-- 

⑨