[commit: ghc] wip/T14373: WIP: reorg (d3b2ae9)

[git at git.haskell.org]

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

On branch  : wip/T14373
Link       : http://ghc.haskell.org/trac/ghc/changeset/d3b2ae9fa6246061e426f3c4a285519277057a9c/ghc

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

commit d3b2ae9fa6246061e426f3c4a285519277057a9c
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sat Dec 16 16:41:48 2017 +0100

    WIP: reorg


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

d3b2ae9fa6246061e426f3c4a285519277057a9c
 .../tests/codeGen/should_compile/{T14373.hs => T14373-common.hs}     | 4 ----
 testsuite/tests/codeGen/should_compile/T14373.hs                     | 5 +++--
 testsuite/tests/codeGen/should_compile/all.T                         | 2 +-
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/testsuite/tests/codeGen/should_compile/T14373.hs b/testsuite/tests/codeGen/should_compile/T14373-common.hs
similarity index 68%
copy from testsuite/tests/codeGen/should_compile/T14373.hs
copy to testsuite/tests/codeGen/should_compile/T14373-common.hs
index a1c42dd..98015ce 100644
--- a/testsuite/tests/codeGen/should_compile/T14373.hs
+++ b/testsuite/tests/codeGen/should_compile/T14373-common.hs
@@ -1,7 +1,3 @@
 module T14373 where
 
 data BigFam = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P deriving Enum
-
-{-# NOINLINE lateSwitch #-}
-
-lateSwitch P = "Cool"
diff --git a/testsuite/tests/codeGen/should_compile/T14373.hs b/testsuite/tests/codeGen/should_compile/T14373.hs
index a1c42dd..35434d1 100644
--- a/testsuite/tests/codeGen/should_compile/T14373.hs
+++ b/testsuite/tests/codeGen/should_compile/T14373.hs
@@ -1,7 +1,8 @@
-module T14373 where
+{-# OPTIONS_GHC -ddump-cmm-from-stg -dsuppress-uniques #-}
 
-data BigFam = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P deriving Enum
+import T14373
 
 {-# NOINLINE lateSwitch #-}
 
+
 lateSwitch P = "Cool"
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 350b662..b78a13e 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -35,4 +35,4 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
      compile, ['-g'])
 test('T12115', normal, compile, [''])
 test('T12355', normal, compile, [''])
-test('T14373', normal, compile, [''])
+test('T14373a', normal, compile, [''])