static Scorer ai_runNLParserTests() {
  new Scorer scorer;
  scorer.verboseAll = true;
  LPairS tests = mL_pairs_tlftj(ai_language() + " Parser Tests");
  if (empty(tests)) print("Have no parser tests for " + ai_language());
  fOr (PairS p : tests) {
    print(p.a);
    AI_BottomUpParser1 parser = ai_standardBUParserForCurrentLanguage();
    parser.parse(p.a);
    Set<S> classes = asCISet(parser.fullClasses());
    print("Classes: " + classes);
    for (S c : tok_splitAtComma(p.b))
      scorer.add(contains(classes, angleBracket(dropPrefix("!", c))) == !startsWith(c, "!"), c);
  }
  ret scorer;
}