[commit: testsuite] master: Add test for -XNumDecimals (04cb5e2)

git at git.haskell.org git at git.haskell.org
Thu Aug 29 07:15:48 CEST 2013


Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/04cb5e2290b619de332e238818d6d9ca0eb2d31d/testsuite

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

commit 04cb5e2290b619de332e238818d6d9ca0eb2d31d
Author: Austin Seipp <aseipp at pobox.com>
Date:   Wed Aug 28 17:18:21 2013 -0500

    Add test for -XNumDecimals
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


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

04cb5e2290b619de332e238818d6d9ca0eb2d31d
 tests/numeric/should_run/NumDecimals.hs     |    4 ++++
 tests/numeric/should_run/NumDecimals.stdout |    1 +
 tests/numeric/should_run/all.T              |    1 +
 3 files changed, 6 insertions(+)

diff --git a/tests/numeric/should_run/NumDecimals.hs b/tests/numeric/should_run/NumDecimals.hs
new file mode 100644
index 0000000..6bcf15d
--- /dev/null
+++ b/tests/numeric/should_run/NumDecimals.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE NumDecimals #-}
+
+main :: IO ()
+main = print (1.2e6 :: Integer)
diff --git a/tests/numeric/should_run/NumDecimals.stdout b/tests/numeric/should_run/NumDecimals.stdout
new file mode 100644
index 0000000..4247ff3
--- /dev/null
+++ b/tests/numeric/should_run/NumDecimals.stdout
@@ -0,0 +1 @@
+1200000
diff --git a/tests/numeric/should_run/all.T b/tests/numeric/should_run/all.T
index 70bd591..8f658de 100644
--- a/tests/numeric/should_run/all.T
+++ b/tests/numeric/should_run/all.T
@@ -60,3 +60,4 @@ test('T7014',
      ['$MAKE -s --no-print-directory T7014'])
 
 test('T7233', normal, compile_and_run, [''])
+test('NumDecimals', normal, compile_and_run, [''])





More information about the ghc-commits mailing list