git.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/add_header.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5 use Test::More tests => 4;
   6 use HTTP::Request::Common;
   7
   8 BEGIN {
   9     delete @ENV{qw( PATH IFS CDPATH ENV BASH_ENV )};  # Placates taint-unsafe Cwd.pm in 5.6.1
  10     use_ok( 'WWW::Mechanize' );
  11 }
  12
  13 my $agent = WWW::Mechanize->new;
  14 isa_ok( $agent, 'WWW::Mechanize', 'Created agent' );
  15
  16 $agent->add_header( Referer => 'x' );
  17 my $req = GET( 'http://www.google.com/' );
  18 $req = $agent->_modify_request( $req );
  19 like( $req->as_string, qr/Referer/, q{Referer's in there} );
  20
  21 $agent->add_header( Referer => undef );
  22 $req = $agent->_modify_request( $req );
  23 unlike( $req->as_string, qr/Referer/, q{Referer's not there} );