!752

static OccTree<E> tree;

!include #1003370 // DialogBot

sclass StrictBot extends DialogBot {

  *(OccTree<E> node) { super(node); }

  bool matchE(E a, E b) {

    ret eq(a, b); // strict!

  }  

}

p {

  L<L<E>> poems = parsePoems(splitAtEmptyLines([[

    Usr: Yes

    Bot: ok yes

    [good]

    Usr: No

    Bot: ok no

    [good]

    Usr: No

    Bot: ok yes

    [bad]

    Usr: Yes

    Bot: ok no

    [bad]

  ]]));

  print("Got " + n(l(poems), "dialog") + ".");

  psl(poems);

  tree = poems2occTree(poems);

  print(asciiHeading("Occurrence Tree"));

  printOccTree(tree);

  check("Usr: Yes", "Bot: ok yes");

  check("Usr: No", "Bot: ok no");

  check("Usr: yes", "fail"); // we are very strict!

  print("OK");

}

svoid check(S in, S out) {

  checkBot(new StrictBot(tree), in, out);

}