use HTML::Menu::TreeView qw(Tree);
my @tree = (
{
text => 'News',
href => "TreeView.pl",
subtree => [
{
text => 'TreeView',
href => 'attribute',
image => "news.gif"
},
],
},
{
text => "Help",
onclick => 'attribute',
image => "help.gif"
},
);
my $TreeView = new HTML::Menu::TreeView();
my @tree2 = (
{
text => 'News',
href => "TreeView.pl",
subtree => [
{
text => 'TreeView',
href => 'attribute',
image => "news.gif"
},
],
},
);
use Test::More tests => 1;
my $tree2 = Tree(\@tree);
my $tree3 = Tree(\@tree2);
ok(length($tree3) < length($tree2));
1;