git.maemo.org Git - dh-make-perl/blob - dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/link-base.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 5;
   7
   8 BEGIN {
   9     use_ok( 'WWW::Mechanize::Link' );
  10 }
  11
  12 NO_BASE: {
  13     my $link = WWW::Mechanize::Link->new( 'url.html', 'Click here', undef, undef );
  14     isa_ok( $link, 'WWW::Mechanize::Link', 'constructor OK' );
  15
  16     my $URI = $link->URI;
  17     isa_ok( $URI, 'URI::URL', 'URI is proper type' );
  18     is( $URI->rel, 'url.html', 'Short form of the url' );
  19     is( $link->url_abs, 'url.html', 'url_abs works' );
  20 }