makeFakeSuites count tail =
  makeFakeSuites (count - 1) (TestSuite { suiteName = show count,
                                          suiteTests = [simpleTest],
                                          suiteConcurrently = False,
                                          suiteOptions = [] } : tail)
makeFakeSuites count tail =
  makeFakeSuites (count - 1) (TestSuite { suiteName = show count,
                                          suiteTests = [simpleTest],
                                          suiteConcurrently = False,
                                          suiteOptions = [] } : tail)
makeFakeSuites count tail =
  makeFakeSuites (count - 1) (TestSuite { suiteName = show count,
                                          suiteTests = [simpleTest],
                                          suiteConcurrently = False,
                                          suiteOptions = [] } : tail)