#!perl 

use strict;
use warnings;
use HTML::Miner ;

use Test::More tests => 19;


my $html_miner = HTML::Miner->new ( 

    CURRENT_URL      => "http://87.230.9.12" , 
    CURRENT_URL_HTML => 'Super html <a href="http://www.cpan.org">cpan</a>' 
    
);    


my @links = @{ $html_miner->HTML::Miner::get_links() };

ok( $links[0]->{ ABS_URL        } eq  "http://www.cpan.org/" ,    'OO access of get_links - ABS_URL       '       );
ok( $links[0]->{ ANCHOR         } eq  "cpan"                 ,    'OO access of get_links - ANCHOR        '       );
ok( $links[0]->{ DOMAIN         } eq  "www.cpan.org"         ,    'OO access of get_links - DOMAIN        '       );
ok( $links[0]->{ DOMAIN_IS_BASE } eq  0                      ,    'OO access of get_links - Domain_Is_Base'       );
ok( $links[0]->{ PROTOCOL       } eq  "http"                 ,    'OO access of get_links - PROTOCOL      '       );
ok( $links[0]->{ TITLE          } eq  ""                     ,    'OO access of get_links - TITLE         '       );
ok( $links[0]->{ URI            } eq  "/"                    ,    'OO access of get_links - URI           '       );
ok( $links[0]->{ URL            } eq  "http://www.cpan.org"  ,    'OO access of get_links - URL           '       );





@links = @{ HTML::Miner::get_links( 'http://87.230.9.12', 'Super html <a href="http://www.cpan.org">cpan</a>' ) };

ok( $links[0]->{ ABS_URL        } eq  "http://www.cpan.org/" ,    'NON-OO access of get_links - ABS_URL       '       );
ok( $links[0]->{ ANCHOR         } eq  "cpan"                 ,    'NON-OO access of get_links - ANCHOR        '       );
ok( $links[0]->{ DOMAIN         } eq  "www.cpan.org"         ,    'NON-OO access of get_links - DOMAIN        '       );
ok( $links[0]->{ DOMAIN_IS_BASE } eq  0                      ,    'NON-OO access of get_links - Domain_Is_Base'       );
ok( $links[0]->{ PROTOCOL       } eq  "http"                 ,    'NON-OO access of get_links - PROTOCOL      '       );
ok( $links[0]->{ TITLE          } eq  ""                     ,    'NON-OO access of get_links - TITLE         '       );
ok( $links[0]->{ URI            } eq  "/"                    ,    'NON-OO access of get_links - URI           '       );
ok( $links[0]->{ URL            } eq  "http://www.cpan.org"  ,    'NON-OO access of get_links - URL           '       );



my( $url, $protocol, $domain ) = HTML::Miner::_convert_to_valid_url( 'http://87.230.9.12' ) ;
ok( $url      eq "http://87.230.9.12/",    '_convert_to_valid_url URL'      );
ok( $protocol eq "http"               ,    '_convert_to_valid_url PROTOCOL' );
ok( $domain   eq "87.230.9.12"        ,    '_convert_to_valid_url DOMAIN'   );