view release on metacpan or  search on metacpan

t/soap-connect-lwp.t  view on Meta::CPAN

#!/usr/bin/perl
use warnings; use strict;
use Test::More tests => 3;
use Test::Fatal;

use Bb::Collaborate::V3;
use t::Bb::Collaborate::V3;

for (qw(LWP::UserAgent HTTP::Request::Common)) {
    eval "use $_";
    plan skip_all => "$_ required for lwp level testing" if $@;
}

SKIP: {

    my %result = t::Bb::Collaborate::V3->test_connection();
    my $auth = $result{auth};

    skip ($result{reason} || 'skipping live tests', 3)

t/soap-connect-lwp.t  view on Meta::CPAN

    my $userAgent = LWP::UserAgent->new(agent => 'perl post');
    my $response;

    my $user = $connection->user;
    my $pass = $connection->pass;
    $message =~ s/\$\{user\}/$user/g;
    $message =~ s/\$\{pass\}\E/$pass/g;

    is ( exception {
	$response = $userAgent
	    ->request(HTTP::Request::Common::POST( $connection->url,
		      Authorization => $connection->_authoriz,
		      Content_Type => 'text/xml;charset=UTF-8',
		      Content => $message))
		  } => undef, "uploadMultimediaContent request post - lives"); 

    ok($response->is_success, 'response is succcess');

    my $response_string = $response->as_string;
    note "==== RESPONSE ====\n".$response_string;