view release on metacpan or  search on metacpan

t/SearchMachine.t  view on Meta::CPAN

$rv = $machine->feed("To be or not to be", \&check);
is($rv, 42);

$machine = Algorithm::AhoCorasick::SearchMachine->new("sa", "se", "si", "so", "su");
$counter = 0;
$rv = $machine->feed("Un chasseur qui sache chasser ne chase jamais sans son chien", \&count);
ok(!defined($rv));
is($counter, 6);

if ($Config{api_version} >= 8) {
    use utf8;

    $machine = Algorithm::AhoCorasick::SearchMachine->new("pře");
    $expected_pos = 12;
    $expected_keyword = "pře";
    $machine->feed("skákal pes, přes oves", \&check);
}