[commit: testsuite] master: Add a test for #7563 (441805f)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/441805f75e3fbe0f3c560d5ef4d6ab0bccf7e392

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

commit 441805f75e3fbe0f3c560d5ef4d6ab0bccf7e392
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Jan 12 11:10:16 2013 +0000

    Add a test for #7563

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

 driver/testlib.py                       |   12 ++++++++++++
 tests/driver/Makefile                   |    5 +++++
 tests/{rts/T7227.hs => driver/T7563.hs} |    1 +
 tests/driver/T7563.stderr               |    2 ++
 tests/driver/all.T                      |    3 +++
 5 files changed, 23 insertions(+), 0 deletions(-)

diff --git a/driver/testlib.py b/driver/testlib.py
index 43a2073..0332d92 100644
--- a/driver/testlib.py
+++ b/driver/testlib.py
@@ -348,6 +348,18 @@ def unless_wordsize( ws, f ):
     else:
         return f
 
+def if_unregisterised( f ):
+    if config.unregisterised:
+        return f
+    else:
+        return normal
+
+def unless_unregisterised( f ):
+    if config.unregisterised:
+        return normal
+    else:
+        return f
+
 def if_msys( f ):
     if config.msys:
         return f
diff --git a/tests/driver/Makefile b/tests/driver/Makefile
index 0f50be5..e293772 100644
--- a/tests/driver/Makefile
+++ b/tests/driver/Makefile
@@ -530,3 +530,8 @@ T7060: T7060a T7060b T7060c
 .PHONY: T7130
 T7130:
 	"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -fflul-laziness
+
+.PHONY: T7563
+T7563:
+	-"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -C T7563.hs
+
diff --git a/tests/rts/T7227.hs b/tests/driver/T7563.hs
similarity index 94%
copy from tests/rts/T7227.hs
copy to tests/driver/T7563.hs
index b3549c2..db5afa6 100644
--- a/tests/rts/T7227.hs
+++ b/tests/driver/T7563.hs
@@ -1 +1,2 @@
+
 main = return ()
diff --git a/tests/driver/T7563.stderr b/tests/driver/T7563.stderr
new file mode 100644
index 0000000..d9d296f
--- /dev/null
+++ b/tests/driver/T7563.stderr
@@ -0,0 +1,2 @@
+ghc: cannot compile this file to desired target: T7563.hs
+Usage: For basic information, try the `--help' option.
diff --git a/tests/driver/all.T b/tests/driver/all.T
index 3d999a0..f60dc41 100644
--- a/tests/driver/all.T
+++ b/tests/driver/all.T
@@ -362,3 +362,6 @@ test('T7060',
      run_command,
      ['$MAKE -s --no-print-directory T7060'])
 test('T7130', normal, compile_fail, ['-fflul-laziness'])
+test('T7563', if_unregisterised(skip), run_command,
+     ['$MAKE -s --no-print-directory T7563'])
+