view release on metacpan or  search on metacpan

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

    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');