!7

!include #1012676

p {
  ai_alternativeSmartBot();
  ai_useThoughtSpaces(true);
  
  ActualThoughtSpace myTS = new ActualThoughtSpace(currentThoughtSpace());
  thoughtSpace(myTS);
  
  myTS.blockedPatterns.add(t3("Haskell", "is", "$Y"));
  assertContainsIC(print(ai_texts("Java", "is", "$X")), "a programming language");

  poorMansProfiling();
  repeat 100 {
    myTS.blockedPatterns.add(t3("Java", "is", "$Y"));
    assertDoesntContainIC(print(ai_texts("Java", "is", "$X")), "a programming language");
    
    myTS.blockedPatterns.remove(t3("Java", "is", "$Y"));
    assertContainsIC(print(ai_texts("Java", "is", "$X")), "a programming language");
  }
  poorMansProfiling_stopAndPrintResults();
  print("OK");
}