[commit: ghc] master: Make this test a bit simpler (f02c915)

git at git.haskell.org git at git.haskell.org
Tue Nov 4 10:39:11 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f02c915c1583e40d614dfd97047d5117a9b8a9a5/ghc

>---------------------------------------------------------------

commit f02c915c1583e40d614dfd97047d5117a9b8a9a5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Oct 31 12:28:42 2014 +0000

    Make this test a bit simpler
    
    There were two unrelated functions, and the `-ddump-rule-firings` output
    was coming in a non-deterministic order as a result. So now there is just
    one function.


>---------------------------------------------------------------

f02c915c1583e40d614dfd97047d5117a9b8a9a5
 testsuite/tests/simplCore/should_compile/T6056.hs     | 6 ++----
 testsuite/tests/simplCore/should_compile/T6056.stderr | 7 -------
 2 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/testsuite/tests/simplCore/should_compile/T6056.hs b/testsuite/tests/simplCore/should_compile/T6056.hs
index e24631d..d2d8349 100644
--- a/testsuite/tests/simplCore/should_compile/T6056.hs
+++ b/testsuite/tests/simplCore/should_compile/T6056.hs
@@ -1,8 +1,6 @@
 module T6056 where
 import T6056a
 
-foo1 :: Int -> (Maybe Int, [Int])
-foo1 x = smallerAndRest x [x]
+foo :: Int -> (Maybe Int, [Int])
+foo x = smallerAndRest x [x]
 
-foo2 :: Integer -> (Maybe Integer, [Integer])
-foo2 x = smallerAndRest x [x]
diff --git a/testsuite/tests/simplCore/should_compile/T6056.stderr b/testsuite/tests/simplCore/should_compile/T6056.stderr
index d9d4193..5695bd5 100644
--- a/testsuite/tests/simplCore/should_compile/T6056.stderr
+++ b/testsuite/tests/simplCore/should_compile/T6056.stderr
@@ -1,13 +1,6 @@
 Rule fired: foldr/nil
-Rule fired: foldr/nil
-Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
 Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
 Rule fired: Class op <
-Rule fired: Class op <
-Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
-Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
 Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
 Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
 Rule fired: SPEC/T6056 $wsmallerAndRest @ Int
-Rule fired: SPEC/T6056 $wsmallerAndRest @ Integer
-



More information about the ghc-commits mailing list