[commit: ghc] master: Suppress uniques to stop output wobbling (test for Trac #8958) (b4dd566)

[git at git.haskell.org]

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

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

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

commit b4dd5667fe84cb6030d296e9e4563d4de62f718d
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Apr 9 22:40:22 2014 +0100

    Suppress uniques to stop output wobbling (test for Trac #8958)


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

b4dd5667fe84cb6030d296e9e4563d4de62f718d
 testsuite/tests/roles/should_compile/T8958.stderr |    8 ++++----
 testsuite/tests/roles/should_compile/all.T        |    2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/testsuite/tests/roles/should_compile/T8958.stderr b/testsuite/tests/roles/should_compile/T8958.stderr
index e40865f..919530b 100644
--- a/testsuite/tests/roles/should_compile/T8958.stderr
+++ b/testsuite/tests/roles/should_compile/T8958.stderr
@@ -29,21 +29,21 @@ Dependent packages: [base, ghc-prim, integer-gmp]
 
 ==================== Typechecker ====================
 AbsBinds [a] []
-  {Exports: [T8958.$fRepresentationala <= $dRepresentational_aJ6
+  {Exports: [T8958.$fRepresentationala <= $dRepresentational
                <>]
    Exported types: T8958.$fRepresentationala [InlPrag=[ALWAYS] CONLIKE]
                      :: forall a. Representational a
                    [LclIdX[DFunId],
                     Str=DmdType,
                     Unf=DFun: \ (@ a) -> T8958.D:Representational TYPE a]
-   Binds: $dRepresentational_aJ6 = T8958.D:Representational}
+   Binds: $dRepresentational = T8958.D:Representational}
 AbsBinds [a] []
-  {Exports: [T8958.$fNominala <= $dNominal_aJ7
+  {Exports: [T8958.$fNominala <= $dNominal
                <>]
    Exported types: T8958.$fNominala [InlPrag=[ALWAYS] CONLIKE]
                      :: forall a. Nominal a
                    [LclIdX[DFunId],
                     Str=DmdType,
                     Unf=DFun: \ (@ a) -> T8958.D:Nominal TYPE a]
-   Binds: $dNominal_aJ7 = T8958.D:Nominal}
+   Binds: $dNominal = T8958.D:Nominal}
 
diff --git a/testsuite/tests/roles/should_compile/all.T b/testsuite/tests/roles/should_compile/all.T
index 4555b0f..681092b 100644
--- a/testsuite/tests/roles/should_compile/all.T
+++ b/testsuite/tests/roles/should_compile/all.T
@@ -5,4 +5,4 @@ test('Roles4', only_ways('normal'), compile, ['-ddump-tc'])
 test('Roles13', only_ways('normal'), compile, ['-ddump-simpl -dsuppress-uniques'])
 test('Roles14', only_ways('normal'), compile, ['-ddump-tc'])
 test('RolesIArray', only_ways('normal'), compile, [''])
-test('T8958', only_ways('normal'), compile, ['-ddump-tc'])
+test('T8958', only_ways('normal'), compile, ['-ddump-tc -dsuppress-uniques'])