vcs.maemo.org Git - pkg-perl/blob - deb-src/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/aliases.t

   1 #!perl -Tw
   2
   3 use warnings;
   4 use strict;
   5 use Test::More tests => 8;
   6
   7 BEGIN {
   8     use_ok( 'WWW::Mechanize' );
   9 }
  10
  11 my @aliases = WWW::Mechanize::known_agent_aliases();
  12 is( scalar @aliases, 6, 'All aliases accounted for' );
  13
  14 for my $alias ( @aliases ) {
  15     like( $alias, qr/^(Mac|Windows|Linux) /, 'We only know Mac, Windows or Linux' );
  16 }