!7

cmodule TestPhilosophyBot1 > DynPrintLog {
  transient LS musingSnippets = ll(#1025734, #1025756);
  
  transient ReliableSingleThread rstUpdateList = dm_rstWithDelay(0.5, r updateListImpl);
  transient LS errors = listWithNotify(rstUpdateList);
  transient JList jList;
  
  visual jhsplit(super, jCenteredSection("Errors", jList =
    listPopupMenuItemsThreaded(jlist(errors),
      "Show text", r { showText("Test Error", selectedItem(jList)) }
  )));
  
  start-thread {
    for (S snippetID : musingSnippets)
      dm_onSnippetEdited(snippetID, r dm_reload);

    try {
      new Scorer<S> scorer; // infos are print logs
      errors.clear();
      scorer.errors = errors;
      int n = 0;
      
      for (S snippetID : musingSnippets) {
        Scorer scorer2, int n2 = unpair test_PhilosophyBot1(snippetID);
        n += n2;
        scorer.add(scorer2);
      }
      
      addTestToScorerWithPrintLog(scorer, r test_FactStore);
      addTestToScorerWithPrintLog(scorer, r test_philosophyBot1_nativePredicateOnLHS);
      
      if (scorer.allCorrect())
        infoBox("PhilosophyBot1 tested OK - " + n2(n, "expectation") + " tested / " + scorer);
      else
        infoBox("PhilosophyBot1 failures - " + n2(n, "expectation") + " tested / " + scorer);
    } on fail {
      infoBox("PhilosophyBot1 fail");
    }
  }
  
  void updateListImpl {
    fillListWithStrings(jList, errors);
  }
}