From 7fa3b23cc9b631d36f02fdb884be722fbb36d15a Mon Sep 17 00:00:00 2001
From: Thomas Miedema <thomasmiedema@gmail.com>
Date: Thu, 11 Jun 2015 17:25:47 +0200
Subject: [PATCH] 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
---
testsuite/tests/simplCore/should_compile/T4945.stdout | 7 -------
testsuite/tests/simplCore/should_compile/all.T | 2 +-
2 files changed, 1 insertion(+), 8 deletions(-)
delete mode 100644 testsuite/tests/simplCore/should_compile/T4945.stdout
diff --git a/testsuite/tests/simplCore/should_compile/T4945.stdout b/testsuite/tests/simplCore/should_compile/T4945.stdout
deleted file mode 100644
index 2467d21eacc8..000000000000
--- 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 32aa8ea8bd86..30c63cf17ace 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'])
--
GitLab