goodSuiteCase :: TestMaker
goodSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
        name = tcName tc
        semStr = prettyStr . fst3 . tcSem $ tc
        mainMsg  = "for " ++ semStr ++ ",  got no results"
    assertBool "got result" (not (null sentences))
    forM_ (tcExpected tc) $ \e ->
        assertBool ("got result: " ++ T.unpack e) (e `elem` sentences)
goodSuiteCase :: TestMaker
goodSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
        name = tcName tc
        semStr = prettyStr . fst3 . tcSem $ tc
        mainMsg  = "for " ++ semStr ++ ",  got no results"
    assertBool "got result" (not (null sentences))
    forM_ (tcExpected tc) $ \e ->
        assertBool ("got result: " ++ T.unpack e) (e `elem` sentences)
goodSuiteCase pstRef wrangler tc = testCase (T.unpack (tcName tc)) $ do
    res <- runOnSemInput pstRef wrangler tc
    let sentences = map lemmaSentenceString (successes res)
        name = tcName tc
        semStr = prettyStr . fst3 . tcSem $ tc
        mainMsg  = "for " ++ semStr ++ ",  got no results"
    assertBool "got result" (not (null sentences))
    forM_ (tcExpected tc) $ \e ->
        assertBool ("got result: " ++ T.unpack e) (e `elem` sentences)