]> Dogcows Code - chaz/p5-HTTP-AnyUA/blob - t/01-new.t
change an instance of "and" to "&&"
[chaz/p5-HTTP-AnyUA] / 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
This page took 0.503614 seconds and 4 git commands to generate.