Move testsuite/tests/lib/Show to base/tests
authorIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 22:26:41 +0000 (22:26 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 19 Nov 2011 22:26:41 +0000 (22:26 +0000)
tests/all.T
tests/showDouble.hs [new file with mode: 0644]
tests/showDouble.stdout [new file with mode: 0644]

index eb63bb7..fdc34f7 100644 (file)
@@ -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 (file)
index 0000000..399af28
--- /dev/null
@@ -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 (file)
index 0000000..fb1b4de
--- /dev/null
@@ -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