!7

!include once #1021761 // Gazelle Fakery
 
set flag DynModule.

concept Test {
  S name, contents;
  long lastRun, runtime;
  bool success, anySuccess;
}

cmodule GazelleTests > DynCRUD<Test> {
  transient bool running;
  
  transient O[] flags = litparams(
    debugSorting := true,
    useRepeat_v2 := true);
  
  start {
    dm_useLocalMechListCopies();
    crud.multiLineFields = litset('contents);
  }
  
  visualize {
    JComponent c = super.visualize();
    addSelectionDependentButton("Run", r { doIt(selected().name) });
    ret jvsplit(c,
      centerAndSouthWithMargin(dm_printLogComponent(),
        withMargin(jbutton("Run Tests", r runAll))));
  }
  
  void runAll() {
    doIt("");
  }
  
  void doIt(S testName) q {
    _doIt(testName);
  }
  
  void _doIt(S testName) {
    temp dm_tempSetField(running := true);
    
    clearPrintLog();
    gazelle_performMultipleTests(mL_raw("Gazelle Tests"),
      paramsPlus(flags,
        performOnly := testName,
      testStarting := voidfunc(S name, S contents) {
        cset(uniq_sync Test(+name), lastRun := now(), +contents)
      },
      testDone := voidfunc(S name, ErrorCounter scorer) {
        Test test = conceptWhere Test(+name);
        cset(test, runtime := now()-test.lastRun);
        cset(test, success := scorer.allCorrect());
        if (test.success) cset(test, anySuccess := true);
      }
    ));
  }
  
  // API
  
  void runTestAndWait(S testName) {
    dm_runInQAndWait(r { _doIt(testName) });
  }
  
  Pair<Int> countAndSuccesses() {
    ret pair(countConcepts(Test), countConceptsWhere(Test, success := true));
  }
}

Began life as a copy of #1022442