#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 4;

use Test::Differences qw(eq_or_diff);

package MyLink;

sub new
{
    my $class = shift;
    my $self = shift;
    bless $self, $class;
    return $self;
}

sub direct_url
{
    my $self = shift;

    return $self->{direct_url};
}

package main;

use HTML::Latemp::NavLinks::GenHtml::ArrowImages;

{
    my $obj =  HTML::Latemp::NavLinks::GenHtml::ArrowImages->new(
        root => "../../",
        nav_links_obj => {
            'up' => MyLink->new({direct_url => "my-up-url.html" }),
            'next' => MyLink->new({direct_url => "the-NExT-URL.xhtml" }),
            'prev' => MyLink->new({direct_url => "../A-Better-pREVIOUS-URL/" }),
        }
    );

    # TEST
    ok ($obj, "Testing that \$obj is ok.");

    my $expected = <<'EOF';
<ul class="nav_links">
<li>
<a href="../A-Better-pREVIOUS-URL/" title="Previous Page (Alt+P)"
><img src="../..//images/arrow-left.png"
alt="Previous Page" class="bless" /></a>
</li>
<li>
<a href="my-up-url.html" title="Up in the Site (Alt+U)"
><img src="../..//images/arrow-up.png"
alt="Up in the Site" class="bless" /></a>
</li>
<li>
<a href="the-NExT-URL.xhtml" title="Next Page (Alt+N)"
><img src="../..//images/arrow-right.png"
alt="Next Page" class="bless" /></a>
</li>

</ul>
EOF
    chomp($expected);
    # TEST
    eq_or_diff ($obj->get_total_html(), $expected,
        "Testing that the output is OK."
    );
}

{
    my $obj =  HTML::Latemp::NavLinks::GenHtml::ArrowImages->new(
        root => "../../",
        ext => '.svg',
        nav_links_obj => {
            'up' => MyLink->new({direct_url => "my-up-url.html" }),
            'next' => MyLink->new({direct_url => "the-NExT-URL.xhtml" }),
            'prev' => MyLink->new({direct_url => "../A-Better-pREVIOUS-URL/" }),
        }
    );

    # TEST
    ok ($obj, "Testing that \$obj is ok.");

    my $expected = <<'EOF';
<ul class="nav_links">
<li>
<a href="../A-Better-pREVIOUS-URL/" title="Previous Page (Alt+P)"
><img src="../..//images/arrow-left.svg"
alt="Previous Page" class="bless" /></a>
</li>
<li>
<a href="my-up-url.html" title="Up in the Site (Alt+U)"
><img src="../..//images/arrow-up.svg"
alt="Up in the Site" class="bless" /></a>
</li>
<li>
<a href="the-NExT-URL.xhtml" title="Next Page (Alt+N)"
><img src="../..//images/arrow-right.svg"
alt="Next Page" class="bless" /></a>
</li>

</ul>
EOF
    chomp($expected);

    # TEST
    eq_or_diff ($obj->get_total_html(), $expected,
        "Testing that the output is OK."
    );
}