Move tests from tests/ghc-regress/* to just tests/*

1 files changed, 10 insertions, 0 deletions

diff --git a/testsuite/tests/arrows/should_fail/T2111.hs b/testsuite/tests/arrows/should_fail/T2111.hs
new file mode 100644
index 0000000000..eb242cdd6b
--- /dev/null
+++ b/testsuite/tests/arrows/should_fail/T2111.hs
@@ -0,0 +1,10 @@
+{-# OPTIONS_GHC -XArrows -XDoRec -XRecursiveDo#-}
+-- Test Trac #2111
+
+module Foo where
+
+foo = do { rec { x <- undefined -< x }; undefined -< x }
+
+bar1 = do { rec { x <- return ('a':x); }; putStrLn (take 20 x) }
+
+bar2 = mdo { rec { x <- return ('a':x); }; putStrLn (take 20 x) }