10 use Test::More tests => 3;
12 my $any_ua1 = HTTP::AnyUA->new(ua => 'Mock');
13 ok $any_ua1, 'can construct a new HTTP::AnyUA';
15 my $any_ua2 = HTTP::AnyUA->new('Mock');
16 ok $any_ua2, 'can construct a new HTTP::AnyUA';
18 throws_ok { HTTP::AnyUA->new() } qr/^Usage:/, 'constructor requires user agent';