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)
	unless $auth;

    my $connection_class = $result{class};
    my $connection = $connection_class->connect(@$auth, ping => 1);
    my $message = do {local $/; <DATA>};
    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;

    ok( $response !~ m{error}i, 'Response is not an error');

    $connection->disconnect;
}

__DATA__
<soapenv:Envelope
  xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
  xmlns:sas="http://sas.elluminate.com/"
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soapenv:Header>
  </soapenv:Header>
  <soapenv:Body>
    <sas:GetSchedulingManager/>
  </soapenv:Body>
</soapenv:Envelope>