!7

cmodule TestPhilosophyBot1 > DynPrintLog {
  transient LS musingSnippets = ll(#1025734, #1025756);
  
  start-thread {
    for (S snippetID : musingSnippets)
      dm_onSnippetEdited(snippetID, r dm_reload);

    try {
      new Scorer scorer;
      int n = 0;
      
      for (S snippetID : musingSnippets) {
        Scorer scorer2, int n2 = unpair test_PhilosophyBot1(snippetID);
        n += n2;
        scorer.add(scorer2);
      }
      
      addTestToScorer(scorer, r test_FactStore);
      
      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");
    }
  }
}