f0b3bdc201
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_31 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_31.tar.gz
25 lines
688 B
Perl
25 lines
688 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 6;
|
|
use Scalar::Util qw(blessed);
|
|
use SOAP::WSDL::Factory::Transport;
|
|
|
|
eval { SOAP::WSDL::Factory::Transport->get_transport('') };
|
|
like $@, qr{^no transport};
|
|
|
|
|
|
eval { SOAP::WSDL::Factory::Transport->get_transport('zumsl') };
|
|
like $@, qr{^no transport};
|
|
|
|
ok my $obj = SOAP::WSDL::Factory::Transport->get_transport('http');
|
|
ok blessed $obj;
|
|
|
|
SOAP::WSDL::Factory::Transport->register('zumsl', 'Hope_You_Have_No_Such_Package_Installed');
|
|
|
|
eval { SOAP::WSDL::Factory::Transport->get_transport('zumsl:foo') };
|
|
like $@, qr{^Cannot load};
|
|
|
|
eval { SOAP::WSDL::Factory::Transport->register( \'zumsl', 'Foo') };
|
|
like $@, qr{^Cannot use reference};
|
|
|