use strict;
use HTML::Menu::TreeView;
use vars qw(@TreeView @tree);
@tree = (
    {
        text    => 'News',
        href    => "TreeView.pl",
        subtree => [
            {
                text  => 'TreeView',
                href  => 'attribute',
                image => "news.gif"
            },
        ],
    },
    {
        text    => "Help",
        onclick => 'attribute',
        image   => "help.gif"
    },
);
my $Tree = new HTML::Menu::TreeView();
my $t    = $Tree->Tree( \@tree );
$Tree->saveTree("./tree.pl");
$Tree->loadTree("./tree.pl");
*TreeView = \@{ $HTML::Menu::TreeView::TreeView[0] };
my $tree2 = $Tree->Tree();
use Test::More tests => 2;
ok( $tree[0]->{text} eq $TreeView[0]->{text} );
splice @TreeView, 0, 2, ( $TreeView[1], $TreeView[0] );
ok( $tree[0]->{text} eq $TreeView[1]->{text} );
unlink("./tree.pl");
1;
