diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-06-13 22:51:53 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-16 19:38:51 -0400 |
| commit | 3c35e14058f909bf0c26b5553fc9c61559fc5708 (patch) | |
| tree | a832fec2c2d9c38aac29e1595a6d0a0867e1b999 | |
| parent | 75c6ccf72b2e9c363fad6b91dd4a39525f17a4c5 (diff) | |
| download | haskell-3c35e14058f909bf0c26b5553fc9c61559fc5708.tar.gz | |
testsuite: Really fix #16741
The previous fix, !1095, didn't work as `--show-iface` ignores
`-dsuppress-ticks`. Rework the test instead.
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/Makefile | 3 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T4918.stdout | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/simplCore/should_compile/Makefile b/testsuite/tests/simplCore/should_compile/Makefile index 93388c49c4..4b71bf3661 100644 --- a/testsuite/tests/simplCore/should_compile/Makefile +++ b/testsuite/tests/simplCore/should_compile/Makefile @@ -111,8 +111,7 @@ T4903: T4918: $(RM) -f T4918.hi T4918.o T4918a.hi T4918a.o '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T4918a.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T4918.hs - '$(TEST_HC)' $(TEST_HC_OPTS) -dsuppress-ticks --show-iface T4918.hi | grep 'C#' + '$(TEST_HC)' $(TEST_HC_OPTS) -c -O T4918.hs -ddump-simpl -dsuppress-all 2>&1 | grep 'C#' EvalTest: '$(TEST_HC)' $(TEST_HC_OPTS) -c -O EvalTest.hs -ddump-simpl -dsuppress-uniques | grep 'rght.*Dmd' | sed 's/^ *//' diff --git a/testsuite/tests/simplCore/should_compile/T4918.stdout b/testsuite/tests/simplCore/should_compile/T4918.stdout index 4e957c0309..f4aa0d5993 100644 --- a/testsuite/tests/simplCore/should_compile/T4918.stdout +++ b/testsuite/tests/simplCore/should_compile/T4918.stdout @@ -1,2 +1,3 @@ - {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.C# 'p'#) -} - {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.C# 'q'#) -} +f4 = C# 'p'# +f5 = C# 'q'# + |