#!/usr/bin/perl -w

use strict;

use lib './t/lib';

use Test::More tests => 6;

use HTML::Widgets::NavMenu;

use HTML::Widgets::NavMenu::Test::Data;

my $test_data = get_test_data();

sub validate_site_map
{
    my $results = shift;
    my $expected_string = shift;
    my $test_blurb = shift;

    my @result = @$results;

    my @expected = (split(/\n/, $expected_string));

    is_deeply(\@expected, \@result, $test_blurb);
}

{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "hello/",
        @{$test_data->{'minimal'}},
    );

    my $results = $nav_menu->gen_site_map();
    my $expected_text = <<"EOF";
<ul>
<li>
<a href="../">Home</a>
</li>
<li>
<a href="../me/" title="About Myself">About Me</a> - About Myself
</li>
</ul>
EOF

    # TEST
    validate_site_map($results, $expected_text, "site_map #1");
}

{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "hello/",
        'current_host' => "default",
        'hosts' => { 'default' => { 'base_url' => "http://www.hello.com/" }, },
        'tree_contents' =>
        {
            'host' => "default",
            'text' => "Top 1",
            'title' => "T1 Title",
            'expand_re' => "",
            'subs' =>
            [
                {
                    'text' => "Home",
                    'url' => "",
                },
                {
                    'text' => "About Me",
                    'title' => "About Myself",
                    'url' => "me/",
                    'subs' =>
                    [
                        {
                            'url' => "round/hello/personal.html",
                            'text' => "Bio",
                            'title' => "Biography of Myself",
                        },
                    ],
                },
            ],
        },
    );

    my $results = $nav_menu->gen_site_map();
    my $expected_text = <<"EOF";
<ul>
<li>
<a href="../">Home</a>
</li>
<li>
<a href="../me/" title="About Myself">About Me</a> - About Myself
<br />
<ul>
<li>
<a href="../round/hello/personal.html" title="Biography of Myself">Bio</a> - Biography of Myself
</li>
</ul>
</li>
</ul>
EOF
    # TEST
    validate_site_map($results, $expected_text, "site_map #2");
}

{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "hello/world/",
        @{$test_data->{'two_sites'}},
    );

    my $results = $nav_menu->gen_site_map();
    my $expected_text = <<"EOF";
<ul>
<li>
<a href="../../">Home</a>
</li>
<li>
<a href="../../me/" title="About Myself">About Me</a> - About Myself
<br />
<ul>
<li>
<a href="../../round/hello/personal.html" title="Biography of Myself">Bio</a> - Biography of Myself
</li>
<li>
<a href="../../round/toto/" title="A Useful Conspiracy">Gloria</a> - A Useful Conspiracy
</li>
</ul>
</li>
<li>
<a href="http://www.other-url.co.il/~shlomif/hoola/" title="Drumming is good for your health">Tam Tam Drums</a> - Drumming is good for your health
<br />
<ul>
<li>
<a href="../hoop.html" title="Hoola Hoops Rulez and Ownz!">Hoola Hoops</a> - Hoola Hoops Rulez and Ownz!
</li>
<li>
<a href="http://www.other-url.co.il/~shlomif/tetra/">Tetrahedron</a>
<br />
<ul>
<li>
<a href="http://www.other-url.co.il/~shlomif/tetra/one/" title="Tetra One Title">Tetra One</a> - Tetra One Title
</li>
</ul>
</li>
</ul>
</li>
</ul>
EOF
    # TEST
    validate_site_map($results, $expected_text, "site_map - complex");
}

# Now testing that the separator is safely skipped and does not generate
# a double </li>
{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "hello/",
        'current_host' => "default",
        'hosts' => { 'default' => { 'base_url' => "http://www.hello.com/" }, },
        'tree_contents' =>
        {
            'host' => "default",
            'text' => "Top 1",
            'title' => "T1 Title",
            'expand_re' => "",
            'subs' =>
            [
                {
                    'text' => "Home",
                    'url' => "",
                },
                {
                    'text' => "About Me",
                    'title' => "About Myself",
                    'url' => "me/",
                },
                {
                    'separator' => 1,
                    'skip' => 1,
                },
                {
                    'text' => "Hoola",
                    'title' => "Hoola Hoop",
                    'url' => "me-too/",
                },
            ],
        },
    );

    my $results = $nav_menu->gen_site_map();
    my $expected_text = <<"EOF";
<ul>
<li>
<a href="../">Home</a>
</li>
<li>
<a href="../me/" title="About Myself">About Me</a> - About Myself
</li>
<li>
<a href="../me-too/" title="Hoola Hoop">Hoola</a> - Hoola Hoop
</li>
</ul>
EOF
    # TEST
    validate_site_map($results, $expected_text, "site_map - separator");
}

# This is a test for the rec_url_type directive.
{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "/darling/",
        @{$test_data->{'rec_url_type_menu'}},
    );

    my $results = $nav_menu->gen_site_map();

    my $expected_text = <<"EOF";
<ul>
<li>
<a href="http://www.hello.com/~shlomif/">Home</a>
</li>
<li>
<a href="/~shlomif/me/" title="About Myself">About Me</a> - About Myself
</li>
<li>
<a href="http://www.hello.com/~shlomif/tedious/to/write/">Hoola</a>
</li>
<li>
<a href="../yowza/">Yowza</a>
<br />
<ul>
<li>
<a href="http://www.hello.com/~shlomif/yowza/howza/">This should be full_abs again</a>
</li>
</ul>
</li>
</ul>
EOF
    # TEST
    validate_site_map($results, $expected_text, "site_map - rec_url_type");
}






# This is a test for the url_is_abs directive.
{
    my $nav_menu = HTML::Widgets::NavMenu->new(
        'path_info' => "/darling/",
        @{$test_data->{'url_is_abs_menu'}},
    );

    my $results = $nav_menu->gen_site_map();

    my $expected_text = <<"EOF";
<ul>
<li>
<a href="../">Home</a>
</li>
<li>
<a href="http://www.google.com/" title="Google it!">Link to Google</a> - Google it!
<br />
<ul>
<li>
<a href="../sub-dir/">Sub Directory</a>
</li>
</ul>
</li>
</ul>
EOF
    # TEST
    validate_site_map($results, $expected_text, "site_map - url_is_abs");
}