|
BEGIN
{
if (! $ENV {GUNGHO_TEST_PROXY}) {
plan skip_all => "Set proxy URI to GUNGHO_TEST_PROXY to run these tests" ;
} elsif (! eval "use POE" || $@ ) {
plan skip_all => "POE Engine not available. Skipping" ;
} else {
plan tests => 5;
use_ok "Gungho::Inline" ;
}
}
Gungho::Inline->run(
{
engine => {
module => qw(POE) ,
config => {
agent => 'test_user_agent' ,
client => {
proxy => $ENV {GUNGHO_TEST_PROXY},
},
},
}
},
{
provider => sub {
my ( $p , $c ) = @_ ;
$p ->add_request(Gungho::Request->new( GET => $_ )) for qw(
)
},
handler => sub {
my ( $h , $c , $req , $res ) = @_ ;
ok( $res ->is_success, $req ->uri . " is success" );
ok( $res ->request->header( 'User-Agent' ), 'test_user_agent' );
},
}
);
|