badSuiteCase :: TestMaker
badSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
    assertBool "no results" (null sentences)
badSuiteCase :: TestMaker
badSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
    assertBool "no results" (null sentences)
badSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
    assertBool "no results" (null sentences)