[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