Martin Kutter
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
22 lines
402 B
Perl
22 lines
402 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 5;
|
|
use_ok qw(SOAP::WSDL::Expat::Base);
|
|
|
|
my $parser = SOAP::WSDL::Expat::Base->new();
|
|
|
|
eval { $parser->parse('Foobar')};
|
|
ok $@;
|
|
|
|
eval { $parser->parsefile('Foobar')};
|
|
ok $@;
|
|
|
|
|
|
$parser = SOAP::WSDL::Expat::Base->new({
|
|
user_agent => 'foo',
|
|
});
|
|
|
|
is $parser->get_user_agent(), 'foo';
|
|
$parser->set_user_agent('bar');
|
|
is $parser->get_user_agent(), 'bar';
|