use strict;
my $class = 'Bio::JBrowse::Store::NCList::NCList';
use_ok( $class );
my @test_subs = (
sub { $_[0][0] },
sub { $_[0][1] },
sub { $_[0][2] = $_[1] },
);
{
my @features = (
[ 123, 123 ],
[ 123, 340 ],
[ 48, 49 ],
);
my $list = $class->new(
@test_subs,
\@features
);
is_deeply(
$list->nestedList,
[
[ 48, 49 ],
[
123,
340,
[
[
123,
123
]
]
],
],
'got the right nested list'
) or diag explain $list->nestedList;
}
{
my $list = $class->new(
@test_subs,
[],
);
my $out = $list->nestedList;
is_deeply( $out, [], 'empty gives empty' ) or diag explain $out;
}
done_testing;