view release on metacpan or  search on metacpan

t/request.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Test::More 0.88;
use lib 't/lib';
use AEHTTP_Tests;
 
my $mod = 'AnyEvent::HTTP::Request';
eval "require $mod" or die $@;
 
use AnyEvent::HTTP;
no warnings 'redefine';
local *AnyEvent::HTTP::http_request = sub ($$@) {
  return $mod->new(@_);
};

t/response.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Test::More 0.88;
use lib 't/lib';
use AEHTTP_Tests;
 
my $mod = 'AnyEvent::HTTP::Response';
eval "require $mod" or die $@;
 
# parse_args error
foreach my $args ( [1], [1,2,3] ){
  is eval { $mod->parse_args(@$args) }, undef, 'wrong number of args';
  like $@, qr/expects two arguments/, 'error message';
}