view release on metacpan or  search on metacpan

t/01-run.t  view on Meta::CPAN

#!/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(),