1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/rebindable/rebindable10.hs b/testsuite/tests/rebindable/rebindable10.hs
new file mode 100644
index 0000000000..5123f0e175
--- /dev/null
+++ b/testsuite/tests/rebindable/rebindable10.hs
@@ -0,0 +1,13 @@
+{-# LANGUAGE RebindableSyntax #-}
+module Main where
+import Prelude
+
+ifThenElse :: Int -> String -> String -> String
+ifThenElse a b c = case a > 0 of
+    True -> b
+    False -> c
+
+main :: IO ()
+main = do
+     print $ if -5 then "this fails" else "this works"
+     print $ if 5 then "this works" else "this fails"
+\ No newline at end of file