[commit: ghc] ghc-7.10: Testsuite: mark T4945 as expect_broken (#4945) (7fa3b23)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.10
Link       : http://ghc.haskell.org/trac/ghc/changeset/7fa3b23cc9b631d36f02fdb884be722fbb36d15a/ghc

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

commit 7fa3b23cc9b631d36f02fdb884be722fbb36d15a
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Thu Jun 11 17:25:47 2015 +0200

    Testsuite: mark T4945 as expect_broken (#4945)
    
    In commit 7d519dabd2006c9742e82fce02df55704da15482, the file
    T4945.stdout was added to the repository, to make T4945 pass
    validatation presumably.
    
    When that test produces output however, there is a bug somewhere, and we
    shouldn't hide it. There is a comment in the Makefile which says:
    
        "When SpecConstr works there are no STUArrays at all"
    
    So here we remove T4945.stdout again, mark T4945 as expect_broken, and
    reopen the ticket.
    
    Differential Revision: https://phabricator.haskell.org/D976
    
    Conflicts:
    	testsuite/tests/simplCore/should_compile/T4945.stdout
    	testsuite/tests/simplCore/should_compile/all.T


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

7fa3b23cc9b631d36f02fdb884be722fbb36d15a
 testsuite/tests/simplCore/should_compile/T4945.stdout | 7 -------
 testsuite/tests/simplCore/should_compile/all.T        | 2 +-
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/testsuite/tests/simplCore/should_compile/T4945.stdout b/testsuite/tests/simplCore/should_compile/T4945.stdout
deleted file mode 100644
index 2467d21..0000000
--- a/testsuite/tests/simplCore/should_compile/T4945.stdout
+++ /dev/null
@@ -1,7 +0,0 @@
-                               -> STUArray RealWorld Int Int
-                              (ipv3 [OS=OneShot] :: STUArray RealWorld Int Int) ->
-                                          case ipv3 of _ [Occ=Dead] { STUArray ds5 ds6 dt ds7 ->
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
-                                  (Data.Array.Base.STUArray
diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T
index 32aa8ea..30c63cf 100644
--- a/testsuite/tests/simplCore/should_compile/all.T
+++ b/testsuite/tests/simplCore/should_compile/all.T
@@ -108,7 +108,7 @@ test('T4918',
      ['$MAKE -s --no-print-directory T4918'])
 
 test('T4945',
-     when(compiler_lt('ghc', '7.1'), expect_fail),
+     normal,
      run_command,
      ['$MAKE -s --no-print-directory T4945'])