use strict;
use warnings;
use Test::More tests => 2;
use Tree::Suffix;

my $tree = Tree::Suffix->new(qw(string stringy astring astringy));
my @lrs = $tree->lrs;
is_deeply([sort @lrs], [qw(astring stringy)], 'lrs');

@lrs = $tree->lrs(0, 5);
is_deeply(
    [sort @lrs],
    [qw(astri ringy strin strin tring tring)],
    'lrs(min, max)'
);