view release on metacpan or  search on metacpan

t/Bb/Collaborate/V3.pm  view on Meta::CPAN

    my $suffix = $opt{suffix} || '';
    my %result;

    my $user = $ENV{'BBC_TEST_USER'.$suffix};
    my $pass = $ENV{'BBC_TEST_PASS'.$suffix};
    my $url  = $ENV{'BBC_TEST_URL'.$suffix};

    if ($url) {
	my $uri_obj = URI->new($url, 'http');
	my $userinfo = $uri_obj->userinfo; # credentials supplied in URI

	if ($userinfo) {
	    my ($uri_user, $uri_pass) = split(':', $userinfo, 2);
	    $user ||= URI::Escape::uri_unescape($uri_user);
	    $pass ||= URI::Escape::uri_unescape($uri_pass)
		if $uri_pass;
	}

	if ($user && $pass && $url !~ m{^mock:}i) {
	    $result{auth} = [map {m{(.*)};$1} ($url, $user, $pass, type => 'StandardV3')];

t/soap-errors.t  view on Meta::CPAN

	unless $auth && @$auth;

    $connection = $connection_class->connect(@$auth);
    Bb::Collaborate::V3->connection($connection);

    my $password = $connection->pass;

    is( exception {
	my $c2 = Bb::Collaborate::V3::Connection->connect($connection->url, $connection->user, $password, ping => 1 );
	$c2->disconnect;
	     } => undef, 'connect/disconnect with good credentials - lives' );

    isnt( exception {
	# add some junk to the password
	my $bad_password =  $password . t::Bb::Collaborate::V3::generate_id();
	Bb::Collaborate::V3::Connection->connect($connection->url, $connection->user, $bad_password, ping => 1 )
	     } => undef, 'attempted connect with bad password - dies' );

    my $good_som;
    {
	is( exception {$good_som = $connection->call('GetSchedulingManager')} => undef, 'legitimate soap call - lives...');