[commit: base] master: Add a test for reading Doubles (54ce838)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/54ce8383cc610977b50f571782f35d1322283a79

>---------------------------------------------------------------

commit 54ce8383cc610977b50f571782f35d1322283a79
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Mar 1 13:57:54 2012 +0000

    Add a test for reading Doubles

>---------------------------------------------------------------

 tests/all.T                |    1 +
 tests/readDouble001.hs     |   11 +++++++++++
 tests/readDouble001.stdout |    6 ++++++
 3 files changed, 18 insertions(+), 0 deletions(-)

diff --git a/tests/all.T b/tests/all.T
index 4b7d905..7addfd1 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -18,6 +18,7 @@ test('unicode002',
      [''])
 test('data-fixed-show-read', normal, compile_and_run, [''])
 test('showDouble', normal, compile_and_run, [''])
+test('readDouble001', normal, compile_and_run, [''])
 test('hash001', normal, compile_and_run, [''])
 test('lex001', normal, compile_and_run, [''])
 test('take001', extra_run_opts('1'), compile_and_run, [''])
diff --git a/tests/readDouble001.hs b/tests/readDouble001.hs
new file mode 100644
index 0000000..f111ac5
--- /dev/null
+++ b/tests/readDouble001.hs
@@ -0,0 +1,11 @@
+
+main :: IO ()
+main = do f "Infinity"
+          f "-Infinity"
+          f "  -  Infinity  "
+          f "NaN"
+          f "-NaN"
+          f "  -  NaN  "
+
+f :: String -> IO ()
+f str = print (reads str :: [(Double, String)])
diff --git a/tests/readDouble001.stdout b/tests/readDouble001.stdout
new file mode 100644
index 0000000..ddbbe1e
--- /dev/null
+++ b/tests/readDouble001.stdout
@@ -0,0 +1,6 @@
+[(Infinity,"")]
+[(-Infinity,"")]
+[(-Infinity,"  ")]
+[(NaN,"")]
+[(NaN,"")]
+[(NaN,"  ")]