!7

sS input = [[
  Rule:
  
  /,/ [regexp]
  => The line contains a comma.
  
  Input: "Hello,"
  
  Output: "The line contains a comma."
  
  ----
  
  Same rule.
  
  Input: "Yo."
  
  Output: -
]];

p-exp {
  scoreToConsole(voidfunc(Scorer scorer) {
    LS tests = splitAtMultipleMinusLines(input);
    SS map = null;
    for (S test : tests) {
      print();
      SS lastMap = map;
      map = parseColonProperties_withMultiLines(test, ciSS());
      if (containsTrimmedLineIC(test, "Same rule."))
        map.put("Rule", lastMap.get("Rule"));
      pnlStruct(map);
      
      S input = unquote(map.get("Input"));
      S output = unquote(map.get("Output"));
      PairS rule = splitAtDoubleArrow_pair(map.get("Rule"));
      S out = "-";
      
      S in = rule.a;
      PairS inAndType = splitTrailingSquareBracketStuff(in);
      if (eqic(inAndType.b, "regexp"))
        if (regexpContains(dropTrailingAndLeadingSlash(inAndType.a), input))
          out = rule.b;

      scorer.eq(out, output);
    }
  });
}