diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-06-13 22:51:53 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-06-14 13:01:56 -0400 |
| commit | 6088b59060f720c89c80e32b34ce73b9109c6e2d (patch) | |
| tree | 7d4e7e8c31744bad0dfbf09ea727872d9930cb2f | |
| parent | 3bc6df3223f62a8366e2e4267bac23aa08e6a939 (diff) | |
| download | haskell-6088b59060f720c89c80e32b34ce73b9109c6e2d.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'# + |