Dogcows Code - chaz/p5-HTTP-AnyUA/blob - t/01-new.t

   1 #!perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 't/lib';
   7
   8 use HTTP::AnyUA;
   9 use Test::Exception;
  10 use Test::More tests => 3;
  11
  12 my $any_ua1 = HTTP::AnyUA->new(ua => 'Mock');
  13 ok $any_ua1, 'can construct a new HTTP::AnyUA';
  14
  15 my $any_ua2 = HTTP::AnyUA->new('Mock');
  16 ok $any_ua2, 'can construct a new HTTP::AnyUA';
  17
  18 throws_ok { HTTP::AnyUA->new() } qr/^Usage:/, 'constructor requires user agent';
  19