[commit: base] master: Move testsuite/tests/lib/Show to base/tests (49cd5e9)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/49cd5e9be35c2c460396a54cfe7a3e79a52c7140

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

commit 49cd5e9be35c2c460396a54cfe7a3e79a52c7140
Author: Ian Lynagh <igloo at earth.li>
Date:   Sat Nov 19 22:26:41 2011 +0000

    Move testsuite/tests/lib/Show to base/tests

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

 tests/all.T             |    1 +
 tests/showDouble.hs     |   41 +++++++++++++++++++++++++++++++++++++++++
 tests/showDouble.stdout |   22 ++++++++++++++++++++++
 3 files changed, 64 insertions(+), 0 deletions(-)

diff --git a/tests/all.T b/tests/all.T
index eb63bb7..fdc34f7 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -17,4 +17,5 @@ test('unicode002',
      compile_and_run,
      [''])
 test('data-fixed-show-read', normal, compile_and_run, [''])
+test('showDouble', normal, compile_and_run, [''])
 
diff --git a/tests/showDouble.hs b/tests/showDouble.hs
new file mode 100644
index 0000000..399af28
--- /dev/null
+++ b/tests/showDouble.hs
@@ -0,0 +1,41 @@
+
+module Main (main) where
+
+main :: IO ()
+main = do let xs = [p0, p01, p3, p31, n0, n01, n3, n31, pinf, ninf, nan]
+          mapM_ print xs
+          mapM_ (print . Just) xs
+
+p0 :: Double
+p0 = 0
+
+p01 :: Double
+p01 = 0.1
+
+p3 :: Double
+p3 = 3
+
+p31 :: Double
+p31 = 3.1
+
+n0 :: Double
+n0 = -0
+
+n01 :: Double
+n01 = -0.1
+
+n3 :: Double
+n3 = -3
+
+n31 :: Double
+n31 = -3.1
+
+pinf :: Double
+pinf = 1 / 0
+
+ninf :: Double
+ninf = - 1 / 0
+
+nan :: Double
+nan = 0 / 0
+
diff --git a/tests/showDouble.stdout b/tests/showDouble.stdout
new file mode 100644
index 0000000..fb1b4de
--- /dev/null
+++ b/tests/showDouble.stdout
@@ -0,0 +1,22 @@
+0.0
+0.1
+3.0
+3.1
+-0.0
+-0.1
+-3.0
+-3.1
+Infinity
+-Infinity
+NaN
+Just 0.0
+Just 0.1
+Just 3.0
+Just 3.1
+Just (-0.0)
+Just (-0.1)
+Just (-3.0)
+Just (-3.1)
+Just Infinity
+Just (-Infinity)
+Just NaN