view release on metacpan or  search on metacpan

t/edge_cases.t  view on Meta::CPAN

    is_deeply( [ $matcher->matches("") ], [] );
    is_deeply( [ $matcher->matches(undef) ], [] );
};

subtest duplicate_words => sub {
    my $matcher = Algorithm::AhoCorasick::XS->new(["aa", "aa"]);
    is_deeply( [ $matcher->matches("aa") ], ["aa", "aa"], 'one result for each dupe' );
    is_deeply( [ $matcher->matches("aaa") ], ["aa", "aa", "aa", "aa"] );
};

subtest accidentally_sent_list => sub {
    eval {
        my $matcher = Algorithm::AhoCorasick::XS->new("foo", "bar", "baz");
    };
    like ($@, qr/^Usage:/, 'rejects a list');
};

done_testing;