[commit: ghc] master: Testsuite: mark T4945 as expect_broken (#4945) (506522c)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/506522c95f5d43db4d469135878c56fe20eb81f6/ghc

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

commit 506522c95f5d43db4d469135878c56fe20eb81f6
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


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

506522c95f5d43db4d469135878c56fe20eb81f6
 testsuite/tests/simplCore/should_compile/T4945.stdout | 9 ---------
 testsuite/tests/simplCore/should_compile/all.T        | 2 +-
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/testsuite/tests/simplCore/should_compile/T4945.stdout b/testsuite/tests/simplCore/should_compile/T4945.stdout
deleted file mode 100644
index 4e53cfd..0000000
--- a/testsuite/tests/simplCore/should_compile/T4945.stdout
+++ /dev/null
@@ -1,9 +0,0 @@
-                               -> STUArray RealWorld Int Int -> (# State# RealWorld, () #)
-                              (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
-                                          (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 1f7dffa..26f73e9 100644
--- a/testsuite/tests/simplCore/should_compile/all.T
+++ b/testsuite/tests/simplCore/should_compile/all.T
@@ -107,7 +107,7 @@ test('T4918',
      ['$MAKE -s --no-print-directory T4918'])
 
 test('T4945',
-     normal,
+     expect_broken(4945),
      run_command,
      ['$MAKE -s --no-print-directory T4945'])