[commit: testsuite] master: Test Trac #5038 (9aad7af)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9aad7af4a3b21770fd21db5d99105d7c0bb96eaa

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

commit 9aad7af4a3b21770fd21db5d99105d7c0bb96eaa
Author: simonpj <simonpj at cam-04-unx.europe.corp.microsoft.com>
Date:   Tue Apr 19 17:43:18 2011 +0100

    Test Trac #5038

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

 tests/ghc-regress/rebindable/T5038.hs              |   10 ++++++++++
 .../3279.stdout => rebindable/T5038.stdout}        |    0 
 tests/ghc-regress/rebindable/all.T                 |    1 +
 3 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/tests/ghc-regress/rebindable/T5038.hs b/tests/ghc-regress/rebindable/T5038.hs
new file mode 100644
index 0000000..42f3df2
--- /dev/null
+++ b/tests/ghc-regress/rebindable/T5038.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE RebindableSyntax #-}
+module Main (main) where
+
+import Prelude 
+
+ifThenElse True t f = f
+ifThenElse False t f = t
+
+main = print (if True then 1 else 2 :: Int)
+-- Should print 2!
diff --git a/tests/ghc-regress/concurrent/should_run/3279.stdout b/tests/ghc-regress/rebindable/T5038.stdout
similarity index 100%
copy from tests/ghc-regress/concurrent/should_run/3279.stdout
copy to tests/ghc-regress/rebindable/T5038.stdout
diff --git a/tests/ghc-regress/rebindable/all.T b/tests/ghc-regress/rebindable/all.T
index 43f8979..0cb17f5 100644
--- a/tests/ghc-regress/rebindable/all.T
+++ b/tests/ghc-regress/rebindable/all.T
@@ -27,3 +27,4 @@ test('T303', normal, compile, [''])
 # Tests from Oleg
 test('DoRestrictedM', normal, compile, [''])
 test('DoParamM', reqlib('mtl'), compile_fail, [''])
+test('T5038', normal, compile_and_run, [''])