Add performance test for #13056

This performance regression was fixed by commit
517d03e (#12234). Let's add a performance test
to ensure that it doesn't break again.

testsuite/tests/perf/compiler/T13056.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveFunctor #-}
+{-# LANGUAGE DeriveFoldable #-}
+
+module Bug where
+import Data.Typeable
+import GHC.Generics
+import Data.Data
+
+data Condition v = Condition
+    deriving (Functor, Foldable)
+
+data CondTree v c a = CondNode
+    { condTreeData        :: a
+    , condTreeConstraints :: c
+    , condTreeComponents  :: [CondBranch v c a]
+    }
+    deriving (Functor, Foldable)
+
+data CondBranch v c a = CondBranch
+    { condBranchCondition :: Condition v
+    , condBranchIfTrue    :: CondTree v c a
+    , condBranchIfFalse   :: Maybe (CondTree v c a)
+    }
+    deriving (Functor, Foldable)

testsuite/tests/perf/compiler/all.T

@@ -902,7 +902,6 @@ test('T12234',
      compile,
      [''])
 
-
 test('T13035',
      [ only_ways(['normal']),
        compiler_stats_num_field('bytes allocated',
@@ -912,3 +911,13 @@ test('T13035',
      ],
      compile,
      [''] )
+
+test('T13056',
+     [ only_ways(['optasm']),
+       compiler_stats_num_field('bytes allocated',
+         [(wordsize(64), 520166912, 5),
+         # 2017-01-06    520166912 initial
+         ]),
+     ],
+     compile,
+     ['-O1'])