vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/new.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5 use Test::More tests => 14;
   6
   7 BEGIN {
   8     use_ok( 'WWW::Mechanize' );
   9 }
  10
  11 RES_ON_NEW: {
  12     my $m = WWW::Mechanize->new;
  13     isa_ok( $m, 'WWW::Mechanize' );
  14
  15     ok( !$m->success, 'success() is false before any get' );
  16
  17     my $res = $m->res;
  18     ok( !defined $res, 'res() is undef' );
  19 }
  20
  21
  22 NO_AGENT: {
  23     my $m = WWW::Mechanize->new;
  24     isa_ok( $m, 'WWW::Mechanize' );
  25     can_ok( $m, 'request' );
  26     like( $m->agent, qr/WWW-Mechanize/, 'Set user agent string' );
  27     like( $m->agent, qr/$WWW::Mechanize::VERSION/, 'Set user agent version' );
  28
  29     $m->agent( 'foo/bar v1.23' );
  30     is( $m->agent, 'foo/bar v1.23', 'Can set the agent' );
  31 }
  32
  33 USER_AGENT: {
  34     my $alias = 'Windows IE 6';
  35     my $m = WWW::Mechanize->new( agent => $alias );
  36     isa_ok( $m, 'WWW::Mechanize' );
  37     can_ok( $m, 'request' );
  38     is( $m->agent, $alias, q{Aliases don't get translated in the constructor} );
  39
  40     $m->agent_alias( $alias );
  41     like( $m->agent, qr/^Mozilla.+compatible.+Windows/, 'Alias sets the agent' );
  42
  43     $m->agent( 'ratso/bongo v.43' );
  44     is( $m->agent, 'ratso/bongo v.43', 'Can still set the agent' );
  45 }