[commit: ghc] master: Make T11361 actually run with reversed uniques (426a25c)

[git at git.haskell.org]

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

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

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

commit 426a25c719f74054758eaaf15daf5760f8d068fb
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Mon Feb 15 09:36:17 2016 -0800

    Make T11361 actually run with reversed uniques
    
    `-dunique-increment` doesn't work inside the file.
    
    Test Plan: I've discovered it doesn't work in D1917.
    
    Reviewers: simonpj, bgamari, austin
    
    Subscribers: thomie, simonmar
    
    Differential Revision: https://phabricator.haskell.org/D1918
    
    GHC Trac Issues: #11361


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

426a25c719f74054758eaaf15daf5760f8d068fb
 testsuite/tests/indexed-types/should_compile/T11361.hs | 3 +--
 testsuite/tests/indexed-types/should_compile/all.T     | 3 ++-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/indexed-types/should_compile/T11361.hs b/testsuite/tests/indexed-types/should_compile/T11361.hs
index 61b412a..7da0062 100644
--- a/testsuite/tests/indexed-types/should_compile/T11361.hs
+++ b/testsuite/tests/indexed-types/should_compile/T11361.hs
@@ -1,8 +1,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
   -- this is needed because |FamHelper a x| /< |Fam a x|
-{-# OPTIONS_GHC -dinitial-unique=16777000 -dunique-increment=-1 #-}
-  -- This is what made GHC crash before
+  -- This file compiled with -dunique-increment=-1 made GHC crash before
 
 module T11361 where
 
diff --git a/testsuite/tests/indexed-types/should_compile/all.T b/testsuite/tests/indexed-types/should_compile/all.T
index 9fece9c..e97acbf 100644
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -271,5 +271,6 @@ test('T10318', normal, compile, [''])
 test('UnusedTyVarWarnings', normal, compile, ['-Wunused-type-patterns'])
 test('UnusedTyVarWarningsNamedWCs', normal, compile, ['-Wunused-type-patterns'])
 test('T11408', normal, compile, [''])
-test('T11361', normal, compile, [''])
+test('T11361', normal, compile, ['-dunique-increment=-1'])
+  # -dunique-increment=-1 doesn't work inside the file
 test('T11361a', normal, compile_fail, [''])