use HTML::Menu::TreeView qw(:all style);
my @tree = (
{
text => "Help",
onclick => 'attribute',
image => "help.gif"
},
{
text => 'News',
href => 'TreeView.pl',
subtree => [
{
text => 'TreeView',
href => 'attribute',
image => "news.gif",
},
],
}
);
use Test::More tests => 10;
my $t1 = Tree(\@tree);
folderFirst(1);
ok(folderFirst() == 1);
folderFirst(0);
ok(folderFirst() == 0);
ok(Style() eq 'Crystal');
documentRoot("blib/rhtml");
Style('simple');
ok(Style() eq 'simple');
ok(size() == 16);
size(32);
ok(size() == 32);
size(1200);
ok(size() == 32);
size(48);
ok(size() == 48);
size(64);
ok(size() == 64);
size(128);
ok(size() == 128);
1;