#!/usr/bin/perl -T

use warnings;
use strict;

use Test::More;

use HTML::AsSubs;
use HTML::Tagset;

plan tests => scalar @HTML::AsSubs::TAGS + 3;

### verify all subroutines in HTML::AsSubs ;
map {

    my $h = eval "HTML::AsSubs::$_(\"$_\")";

    my $string
        = (    $HTML::Tagset::optionalEndTag{$_}
            || $HTML::Tagset::emptyElement{$_} )
        ? "<$_>$_"
        : "<$_>$_<\/$_>";

    is( $h->as_HTML, "$string", "Test of tag: $_" );

} (@HTML::AsSubs::TAGS);

### verify passing href to <a> tag.
{
    my $string = "<a href=\"http://cpan.org\">test</a>";
    my $h = HTML::AsSubs::a( { href => "http://cpan.org" }, "test" );
    is( $h->as_HTML, "$string", "Test of tag properties" );
}

### Improve coverage by passing undef as first parm to _elem via wrapper function.
{
    my $string = "<a>test</a>";
    my $h = HTML::AsSubs::a( undef, "test" );
    is( $h->as_HTML, "$string", "undef test" );
}

### Improve coverage by passing no parameters to _elem via wrapper function.
{
    my $string = "<a></a>";
    my $h      = HTML::AsSubs::a();
    is( $h->as_HTML, "$string", "empty tag test" );
}