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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
