diff options
author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-06-11 17:25:47 +0200 |
---|---|---|
committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-06-11 19:33:05 +0200 |
commit | 506522c95f5d43db4d469135878c56fe20eb81f6 (patch) | |
tree | 1df46f7616e1420fe1811e4ea7992347837c518e | |
parent | a765f72c130111cdbd30f2a3e159186c6e625d2a (diff) | |
download | haskell-506522c95f5d43db4d469135878c56fe20eb81f6.tar.gz |
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
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T4945.stdout | 9 | ||||
-rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 2 |
2 files changed, 1 insertions, 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 4e53cfd97b..0000000000 --- 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 1f7dffa7b9..26f73e9e48 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']) |