runPerf dryrun ["run_tests", widthstr, heightstr] =
  let
    width :: Word
    width = read widthstr

    height :: Word
    height = read heightstr

    selectormap = Map.singleton "suite" allSelector
  in do
    tree <- makeTestTree width height width []
    _ <- performTestSuites quietReporter selectormap
                           [TestSuite { suiteName = "suite", suiteTests = [tree],
                                        suiteConcurrently = False,
                                        suiteOptions = [] }]
    return ()
runPerf dryrun ["run_tests", widthstr, heightstr] =
  let
    width :: Word
    width = read widthstr

    height :: Word
    height = read heightstr

    selectormap = Map.singleton "suite" allSelector
  in do
    tree <- makeTestTree width height width []
    _ <- performTestSuites quietReporter selectormap
                           [TestSuite { suiteName = "suite", suiteTests = [tree],
                                        suiteConcurrently = False,
                                        suiteOptions = [] }]
    return ()
runPerf dryrun ["run_tests", widthstr, heightstr] =
  let
    width :: Word
    width = read widthstr

    height :: Word
    height = read heightstr

    selectormap = Map.singleton "suite" allSelector
  in do
    tree <- makeTestTree width height width []
    _ <- performTestSuites quietReporter selectormap
                           [TestSuite { suiteName = "suite", suiteTests = [tree],
                                        suiteConcurrently = False,
                                        suiteOptions = [] }]
    return ()