Fix up test results.
authorDavid Feuer <david.feuer@gmail.com>
Thu, 2 Mar 2017 21:30:33 +0000 (16:30 -0500)
committerBen Gamari <ben@smart-cactus.org>
Fri, 3 Mar 2017 00:58:01 +0000 (19:58 -0500)
Set up test results and Makefile as SPJ intended (I believe).
Previous changes accidentally did something a bit different.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3248

testsuite/tests/simplCore/should_compile/Makefile
testsuite/tests/simplCore/should_compile/T13156.stdout

index 51aeaa1..4930c68 100644 (file)
@@ -28,8 +28,9 @@ T8832:
        '$(TEST_HC)' $(TEST_HC_OPTS) $(T8832_WORDSIZE_OPTS) -O -c -ddump-simpl T8832.hs | grep '^[a-zA-Z0-9]\+ ='
 
 T12603:
-       $(RM) -f T8832.o T8832.hi
-       '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-uniques T12603.hs | grep 'wf1'
+       $(RM) -f T12603.o T12603.hi
+       '$(TEST_HC)' $(TEST_HC_OPTS) -O -c -ddump-simpl -dsuppress-uniques T12603.hs | grep 'GHC.Real'
+         # Horribly delicate; looking for a top-level shared call to 2^8
 
 T11155:
        $(RM) -f T11155.o T11155.hi
@@ -129,7 +130,7 @@ T13155:
 
 T13156:
        $(RM) -f T13156.hi T13156.o
-       '$(TEST_HC)' $(TEST_HC_OPTS) -c T13156.hs -O -ddump-prep -dsuppress-uniques | grep "case"
+       '$(TEST_HC)' $(TEST_HC_OPTS) -c T13156.hs -O -ddump-prep -dsuppress-uniques | grep "case.*Any"
         # There should be a single 'case r @ GHC.Types.Any'
 
 .PHONY: T4138
index 765c5e1..265d07b 100644 (file)
@@ -1,4 +1 @@
-      case GHC.List.reverse @ a x of sat { __DEFAULT ->
-      case \ (@ a1) ->
-             case g x of {
       case r @ GHC.Types.Any of { __DEFAULT -> r @ a }