use strict;
use warnings;
use Test::More;
use Tree::Suffix;

unless (eval { require Proc::ProcessTable }) {
    plan skip_all => 'Proc::ProcessTable is not installed';
}

plan tests => 1;

my $p = Proc::ProcessTable->new;
for (@{$p->table}) {
    $p = $_ and last if $_->pid == $$;
}

{
    my $str = "mississippi";
    my $tree = Tree::Suffix->new($str);

    my $start = $p->size;
    for (my $i=0; $i<100_000; $i++) {
        my @matches = $tree->find('is');
    }
    my $end = $p->size;
    if ($end - $start > 1_000) {
        diag("Memory leak: $start -> $end");
        ok(0, 'find()');
    }
    else {
        ok(1, 'find()');
    }
}