summaryrefslogtreecommitdiff
path: root/testsuite/tests/simplCore
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2014-05-23 13:42:37 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2014-08-28 11:14:16 +0100
commit082e41b4c469371cae2eda3fb9b5e0e0f54e73e3 (patch)
tree410b27c92eaea50012b3e5b84067ff963aa75fe1 /testsuite/tests/simplCore
parent1122857e6967795a4595a837f3b080cf5f0e18c2 (diff)
downloadhaskell-082e41b4c469371cae2eda3fb9b5e0e0f54e73e3.tar.gz
Testsuite wibbles
Diffstat (limited to 'testsuite/tests/simplCore')
-rw-r--r--testsuite/tests/simplCore/should_compile/EvalTest.stdout2
-rw-r--r--testsuite/tests/simplCore/should_compile/T4138.stdout2
-rw-r--r--testsuite/tests/simplCore/should_compile/T8848.stderr23
3 files changed, 25 insertions, 2 deletions
diff --git a/testsuite/tests/simplCore/should_compile/EvalTest.stdout b/testsuite/tests/simplCore/should_compile/EvalTest.stdout
index 30c7ea4efa..25ed3203f5 100644
--- a/testsuite/tests/simplCore/should_compile/EvalTest.stdout
+++ b/testsuite/tests/simplCore/should_compile/EvalTest.stdout
@@ -1 +1 @@
-rght [Dmd=<S,U>] :: EvalTest.AList a
+rght [Dmd=<S,U>] :: EvalTest.AList a1
diff --git a/testsuite/tests/simplCore/should_compile/T4138.stdout b/testsuite/tests/simplCore/should_compile/T4138.stdout
index d00491fd7e..0cfbf08886 100644
--- a/testsuite/tests/simplCore/should_compile/T4138.stdout
+++ b/testsuite/tests/simplCore/should_compile/T4138.stdout
@@ -1 +1 @@
-1
+2
diff --git a/testsuite/tests/simplCore/should_compile/T8848.stderr b/testsuite/tests/simplCore/should_compile/T8848.stderr
index a96051ac3d..dcc478ccce 100644
--- a/testsuite/tests/simplCore/should_compile/T8848.stderr
+++ b/testsuite/tests/simplCore/should_compile/T8848.stderr
@@ -13,6 +13,26 @@ Rule fired: Class op <*>
Rule fired: Class op $p1Applicative
Rule fired: Class op fmap
Rule fired: Class op <*>
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired:
+ SPEC/main:T8848 Control.Applicative.liftA2 _ _ _ @ (T8848.Shape
+ 'T8848.Z)
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired:
+ SPEC/main:T8848 Control.Applicative.liftA2 _ _ _ @ (T8848.Shape
+ 'T8848.Z)
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired: Class op $p1Applicative
+Rule fired: Class op fmap
+Rule fired: Class op <*>
+Rule fired: Class op fmap
+Rule fired: Class op fmap
Rule fired: SPEC $cfmap @ 'T8848.Z
Rule fired: SPEC $c<$ @ 'T8848.Z
Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
@@ -20,3 +40,6 @@ Rule fired: Class op fmap
Rule fired: Class op fmap
Rule fired: SPEC $c<$ @ 'T8848.Z
Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
+Rule fired: SPEC T8848.$fFunctorShape @ 'T8848.Z
+Rule fired: Class op fmap
+Rule fired: Class op fmap