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

   1 #!perl -T
   2
   3 use warnings;
   4 use strict;
   5 use Test::More;
   6
   7 BEGIN {
   8     eval 'use Test::Warn';
   9     plan skip_all => 'Test::Warn required to test warnings' if $@;
  10     plan tests => 3;
  11 }
  12
  13 BEGIN {
  14     use_ok( 'WWW::Mechanize' );
  15 }
  16
  17 UNKNOWN_ALIAS: {
  18     my $m = WWW::Mechanize->new;
  19     isa_ok( $m, 'WWW::Mechanize' );
  20
  21     warning_is {
  22         $m->agent_alias( 'Blongo' );
  23     } 'Unknown agent alias "Blongo"', 'Unknown aliases squawk appropriately';
  24 }