import SOAP-WSDL 2.00_17 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_17 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_17.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed
1 parent
c6a48ba84b
commit
008d06b72a
319 files changed
+23045
-2383
No files matched your search
@@ -0,0 +1,104 @@
|
||||
use Test::More tests => 176;
|
||||
use Scalar::Util qw(blessed);
|
||||
|
||||
# use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anyURI;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::base64Binary;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::boolean;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::byte;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::date;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::dateTime;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::decimal;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::double;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::duration;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::ENTITY;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::float;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::gDay;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::gMonth;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::gYear;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::hexBinary;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::ID;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::IDREF;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::IDREFS;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::int;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::integer;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::language;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::long;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::Name;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NCName;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::normalizedString;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NOTATION;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::QName;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::short;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::string;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::time;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::token;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort;
|
||||
|
||||
|
||||
for (
|
||||
qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anyURI
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::boolean
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::byte
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::date
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::dateTime
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::decimal
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::double
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::duration
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::float
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::gDay
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::gMonth
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::gYear
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::hexBinary
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::ID
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::IDREF
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::IDREFS
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::int
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::integer
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::language
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::long
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::Name
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::NCName
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::normalizedString
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::NOTATION
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::QName
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::short
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::time
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::token
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort
|
||||
) ) {
|
||||
my $obj = $_->new();
|
||||
ok blessed $obj;
|
||||
is $obj->get_value(), undef;
|
||||
$obj = $_->new({});
|
||||
ok blessed $obj;
|
||||
is $obj->get_value(), undef;
|
||||
}
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::ENTITY;
|
||||
my $ENTITY = SOAP::WSDL::XSD::Typelib::Builtin::ENTITY->new();
|
||||
is $ENTITY->get_value(), undef;
|
||||
$ENTITY = SOAP::WSDL::XSD::Typelib::Builtin::ENTITY->new({});
|
||||
is $ENTITY->get_value(), undef;
|
||||
ok $ENTITY = SOAP::WSDL::XSD::Typelib::Builtin::ENTITY->new({ value => 127 });
|
||||
is "$ENTITY", "127", 'stringification';
|
||||
|
||||
ok $ENTITY->isa('SOAP::WSDL::XSD::Typelib::Builtin::NCName'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::ID;
|
||||
my $ID = SOAP::WSDL::XSD::Typelib::Builtin::ID->new();
|
||||
is $ID->get_value(), undef;
|
||||
$ID = SOAP::WSDL::XSD::Typelib::Builtin::ID->new({});
|
||||
is $ID->get_value(), undef;
|
||||
ok $ID = SOAP::WSDL::XSD::Typelib::Builtin::ID->new({ value => 'Test' });
|
||||
is "$ID", 'Test', 'stringification';
|
||||
|
||||
ok $ID->isa('SOAP::WSDL::XSD::Typelib::Builtin::NCName'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::IDREF;
|
||||
my $IDREF = SOAP::WSDL::XSD::Typelib::Builtin::IDREF->new();
|
||||
is $IDREF->get_value(), undef;
|
||||
$IDREF = SOAP::WSDL::XSD::Typelib::Builtin::IDREF->new({});
|
||||
is $IDREF->get_value(), undef;
|
||||
ok $IDREF = SOAP::WSDL::XSD::Typelib::Builtin::IDREF->new({ value => 127 });
|
||||
is "$IDREF", "127", 'stringification';
|
||||
|
||||
ok $IDREF->isa('SOAP::WSDL::XSD::Typelib::Builtin::NCName'), 'inheritance';
|
||||
@@ -0,0 +1,16 @@
|
||||
use Test::More tests => 8;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::IDREFS;
|
||||
my $IDREFS = SOAP::WSDL::XSD::Typelib::Builtin::IDREFS->new();
|
||||
is $IDREFS->get_value(), undef;
|
||||
$IDREFS = SOAP::WSDL::XSD::Typelib::Builtin::IDREFS->new({});
|
||||
is $IDREFS->get_value(), undef;
|
||||
ok $IDREFS = SOAP::WSDL::XSD::Typelib::Builtin::IDREFS->new({ value => [ 127 , 'Test' ] });
|
||||
is "$IDREFS", "127 Test", 'stringification';
|
||||
|
||||
ok $IDREFS = SOAP::WSDL::XSD::Typelib::Builtin::IDREFS->new({ value => 'Test' });
|
||||
is "$IDREFS", "Test", 'stringification';
|
||||
|
||||
ok $IDREFS->isa('SOAP::WSDL::XSD::Typelib::Builtin::IDREF'), 'inheritance';
|
||||
ok $IDREFS->isa('SOAP::WSDL::XSD::Typelib::Builtin::list'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NCName;
|
||||
my $NCName = SOAP::WSDL::XSD::Typelib::Builtin::NCName->new();
|
||||
is $NCName->get_value(), undef;
|
||||
$NCName = SOAP::WSDL::XSD::Typelib::Builtin::NCName->new({});
|
||||
is $NCName->get_value(), undef;
|
||||
ok $NCName = SOAP::WSDL::XSD::Typelib::Builtin::NCName->new({ value => 'Test' });
|
||||
is "$NCName", "Test", 'stringification';
|
||||
|
||||
ok $NCName->isa('SOAP::WSDL::XSD::Typelib::Builtin::Name'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::token;
|
||||
my $token = SOAP::WSDL::XSD::Typelib::Builtin::token->new();
|
||||
is $token->get_value(), undef;
|
||||
$token = SOAP::WSDL::XSD::Typelib::Builtin::token->new({});
|
||||
is $token->get_value(), undef;
|
||||
ok $token = SOAP::WSDL::XSD::Typelib::Builtin::token->new({ value => 127 });
|
||||
is "$token", "127", 'stringification';
|
||||
|
||||
ok $token->isa('SOAP::WSDL::XSD::Typelib::Builtin::normalizedString'), 'inheritance';
|
||||
@@ -0,0 +1,21 @@
|
||||
use Test::More tests => 9;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS;
|
||||
my $NMTOKENS = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS->new();
|
||||
is $NMTOKENS->get_value(), undef;
|
||||
$NMTOKENS = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS->new({});
|
||||
is $NMTOKENS->get_value(), undef;
|
||||
ok $NMTOKENS = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS->new({ value => [ 127 , 'Test' ] });
|
||||
|
||||
is "$NMTOKENS", '127 Test', 'stringification';
|
||||
|
||||
ok $NMTOKENS = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS->new({ value => 'Test' });
|
||||
is "$NMTOKENS", "Test", 'stringification';
|
||||
|
||||
$NMTOKENS = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS->new({ value => undef });
|
||||
is "$NMTOKENS", q{}, 'stringification';
|
||||
|
||||
|
||||
ok $NMTOKENS->isa('SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN'), 'inheritance';
|
||||
ok $NMTOKENS->isa('SOAP::WSDL::XSD::Typelib::Builtin::list'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NOTATION;
|
||||
my $NOTATION = SOAP::WSDL::XSD::Typelib::Builtin::NOTATION->new();
|
||||
is $NOTATION->get_value(), undef;
|
||||
$NOTATION = SOAP::WSDL::XSD::Typelib::Builtin::NOTATION->new({});
|
||||
is $NOTATION->get_value(), undef;
|
||||
ok $NOTATION = SOAP::WSDL::XSD::Typelib::Builtin::NOTATION->new({ value => 'Test' });
|
||||
is "$NOTATION", "Test", 'stringification';
|
||||
|
||||
ok $NOTATION->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::Name;
|
||||
my $Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new();
|
||||
is $Name->get_value(), undef;
|
||||
$Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new({});
|
||||
is $Name->get_value(), undef;
|
||||
ok $Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new({ value => 'xsd:Test' });
|
||||
is "$Name", "xsd:Test", 'stringification';
|
||||
|
||||
ok $Name->isa('SOAP::WSDL::XSD::Typelib::Builtin::normalizedString'), 'inheritance';
|
||||
@@ -0,0 +1,50 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 20;
|
||||
use Scalar::Util qw(blessed);
|
||||
use lib '../../../../../../lib';
|
||||
use_ok qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
||||
|
||||
my $obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new();
|
||||
|
||||
ok blessed $obj, 'constructor returned blessed reference';
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({ value => 'test1' });
|
||||
|
||||
ok blessed $obj, 'constructor returned blessed reference';
|
||||
is $obj->get_value(), 'test1', 'get_value';
|
||||
|
||||
is $obj->get_xmlns(), 'http://www.w3.org/2001/XMLSchema', 'get_xmlns';
|
||||
|
||||
|
||||
is $obj->start_tag({ name => 'test' }), '<test >', 'start_tag';
|
||||
is $obj->end_tag({ name => 'test' }), '</test >', 'end_tag';
|
||||
|
||||
ok $obj->set_value('test'), 'set_value';
|
||||
is $obj->get_value(), 'test', 'get_value';
|
||||
|
||||
is "$obj", q{test}, 'serialize overloading';
|
||||
|
||||
ok ($obj)
|
||||
? pass 'boolean overloading'
|
||||
: fail 'boolean overloading';
|
||||
|
||||
ok ! $obj->set_value(undef), 'set_value with explicit undef';
|
||||
is $obj->get_value(), undef, 'get_value';
|
||||
|
||||
is "$obj", q{}, 'stringification overloading';
|
||||
|
||||
ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new({
|
||||
value => 'test2',
|
||||
});
|
||||
|
||||
is $obj->get_value(), 'test2', 'get_value on attr value';
|
||||
|
||||
$obj->set_value(undef);
|
||||
|
||||
is $obj->serialize({ name => 'foo' }), '<foo ></foo >'
|
||||
, 'serialize undef value with name';
|
||||
is $obj->serialize(), q{}, 'serialize undef value without name';
|
||||
|
||||
|
||||
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType'), 'inheritance';
|
||||
@@ -0,0 +1,23 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 7;
|
||||
use Scalar::Util qw(blessed);
|
||||
use lib '../../../../../../lib';
|
||||
use_ok qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
|
||||
|
||||
my $obj = SOAP::WSDL::XSD::Typelib::Builtin::anyType->new();
|
||||
|
||||
ok blessed $obj, 'constructor returned blessed reference';
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::anyType->new({
|
||||
xmlns => 'urn:Siemens.mosaic'
|
||||
});
|
||||
|
||||
ok blessed $obj, 'constructor returned blessed reference';
|
||||
|
||||
is $obj->get_xmlns(), 'http://www.w3.org/2001/XMLSchema', 'get_xmlns';
|
||||
|
||||
is $obj->start_tag({ name => 'test' }), '<test >', 'start_tag';
|
||||
is $obj->end_tag({ name => 'test' }), '</test >', 'end_tag';
|
||||
|
||||
is "$obj", q{}, 'serialize overloading';
|
||||
@@ -0,0 +1,14 @@
|
||||
use Test::More tests => 7;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anyURI;
|
||||
my $anyURI = SOAP::WSDL::XSD::Typelib::Builtin::anyURI->new();
|
||||
is $anyURI->get_value(), undef;
|
||||
$anyURI = SOAP::WSDL::XSD::Typelib::Builtin::anyURI->new({});
|
||||
is $anyURI->get_value(), undef;
|
||||
ok $anyURI = SOAP::WSDL::XSD::Typelib::Builtin::anyURI->new({ value => 'isbn:1234567' });
|
||||
is "$anyURI", "isbn:1234567", 'stringification';
|
||||
ok $anyURI->set_value('http://example.org');
|
||||
is "$anyURI", 'http://example.org', 'stringification';
|
||||
$anyURI = SOAP::WSDL::XSD::Typelib::Builtin::anyURI->new();
|
||||
ok $anyURI->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::base64Binary;
|
||||
my $obj = SOAP::WSDL::XSD::Typelib::Builtin::base64Binary->new();
|
||||
is "$obj", '', 'stringification';
|
||||
ok defined $obj;
|
||||
ok $obj->set_value('AAAA==');
|
||||
ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::base64Binary->new({ value => 'AAAA==' });
|
||||
is "$obj", 'AAAA==', 'stringification';
|
||||
|
||||
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
@@ -0,0 +1,51 @@
|
||||
use Test::More tests => 18;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::boolean;
|
||||
|
||||
my $bool;
|
||||
$bool = SOAP::WSDL::XSD::Typelib::Builtin::boolean->new();
|
||||
ok defined $bool;
|
||||
|
||||
is "$bool", '', 'serialized undef to empty string';
|
||||
|
||||
$bool = SOAP::WSDL::XSD::Typelib::Builtin::boolean->new({});
|
||||
ok defined $bool;
|
||||
|
||||
ok $bool = SOAP::WSDL::XSD::Typelib::Builtin::boolean->new({ value => 'true' });
|
||||
|
||||
is $bool * 1 , 1, 'numerification';
|
||||
ok $bool, 'boolification';
|
||||
|
||||
is "$bool", 'true', 'stringification';
|
||||
|
||||
$bool->set_value('1');
|
||||
is $bool, 'true';
|
||||
$bool ? pass 'boolification' : fail 'boolification';
|
||||
|
||||
$bool->set_value('0');
|
||||
is $bool, 'false';
|
||||
! $bool ? pass 'boolification' : fail 'boolification';
|
||||
|
||||
$bool->set_value(undef);
|
||||
is $bool, 'false';
|
||||
! $bool ? pass 'boolification' : fail 'boolification';
|
||||
|
||||
|
||||
$bool->set_value('false');
|
||||
|
||||
if ($bool) {
|
||||
fail 'boolification';
|
||||
}
|
||||
else {
|
||||
pass 'boolification';
|
||||
}
|
||||
|
||||
is "$bool", 'false', 'stringification';
|
||||
|
||||
ok $bool->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
|
||||
is $bool->serialize({ name => 'test'}), '<test >false</test >';
|
||||
|
||||
$bool->delete_value();
|
||||
is "$bool", '', 'serialized undef to empty string';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::byte;
|
||||
my $byte = SOAP::WSDL::XSD::Typelib::Builtin::byte->new();
|
||||
ok defined $byte;
|
||||
ok $byte->set_value('127');
|
||||
ok $byte = SOAP::WSDL::XSD::Typelib::Builtin::byte->new({ value => 127 });
|
||||
is $byte * 1, 127, 'numerification';
|
||||
is "$byte", "127", 'stringification';
|
||||
|
||||
ok $byte->isa('SOAP::WSDL::XSD::Typelib::Builtin::short'), 'inheritance';
|
||||
@@ -0,0 +1,74 @@
|
||||
use Test::More tests => 30;
|
||||
use strict;
|
||||
use Carp qw(cluck);
|
||||
|
||||
$SIG{__WARN__} = sub { cluck @_ };
|
||||
use warnings;
|
||||
use lib '../lib';
|
||||
use Date::Format;
|
||||
use Date::Parse;
|
||||
use_ok('SOAP::WSDL::XSD::Typelib::Builtin::date');
|
||||
my $obj;
|
||||
|
||||
sub timezone {
|
||||
my @time = map { defined $_ ? $_ : 0 } strptime shift;
|
||||
my $tz = strftime('%z', @time);
|
||||
substr $tz, -2, 0, ':';
|
||||
return $tz;
|
||||
}
|
||||
|
||||
my %dates = (
|
||||
'2007/12/31' => '2007-12-31',
|
||||
'2007:08:31' => '2007-08-31',
|
||||
'30 Aug 2007' => '2007-08-30',
|
||||
);
|
||||
|
||||
my %localized_date_of = (
|
||||
'2007-12-31T00:00:00.0000000+0000' => '2007-12-31+00:00',
|
||||
'2007-12-31T00:00:00.0000000+0130' => '2007-12-31+01:30',
|
||||
'2007-12-31T00:00:00.0000000+0200' => '2007-12-31+02:00',
|
||||
'2007-12-31T00:00:00.0000000+0300' => '2007-12-31+03:00',
|
||||
'2007-12-31T00:00:00.0000000+0400' => '2007-12-31+04:00',
|
||||
'2007-12-31T00:00:00.0000000+0500' => '2007-12-31+05:00',
|
||||
'2007-12-31T00:00:00.0000000+0600' => '2007-12-31+06:00',
|
||||
'2007-12-31T00:00:00.0000000+0700' => '2007-12-31+07:00',
|
||||
'2007-12-31T00:00:00.0000000+0800' => '2007-12-31+08:00',
|
||||
'2007-12-31T00:00:00.0000000+0900' => '2007-12-31+09:00',
|
||||
'2007-12-31T00:00:00.0000000+1000' => '2007-12-31+10:00',
|
||||
'2007-12-31T00:00:00.0000000+1100' => '2007-12-31+11:00',
|
||||
'2007-12-31T00:00:00.0000000+1200' => '2007-12-31+12:00',
|
||||
'2007-12-31T00:00:00.0000000-0100' => '2007-12-31-01:00',
|
||||
'2007-12-31T00:00:00.0000000-0200' => '2007-12-31-02:00',
|
||||
'2007-12-31T00:00:00.0000000-0300' => '2007-12-31-03:00',
|
||||
'2007-12-31T00:00:00.0000000-0400' => '2007-12-31-04:00',
|
||||
'2007-12-31T00:00:00.0000000-0500' => '2007-12-31-05:00',
|
||||
'2007-12-31T00:00:00.0000000-0600' => '2007-12-31-06:00',
|
||||
'2007-12-31T00:00:00.0000000-0700' => '2007-12-31-07:00',
|
||||
'2007-12-31T00:00:00.0000000-0800' => '2007-12-31-08:00',
|
||||
'2007-12-31T00:00:00.0000000-0900' => '2007-12-31-09:00',
|
||||
'2007-12-31T00:00:00.0000000-1000' => '2007-12-31-10:00',
|
||||
'2007-12-31T00:00:00.0000000-1100' => '2007-12-31-11:00',
|
||||
'2007-12-31T00:00:00.0000000-1200' => '2007-12-31-12:00',
|
||||
|
||||
|
||||
);
|
||||
|
||||
while (my ($date, $converted) = each %localized_date_of ) {
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::date->new();
|
||||
$obj->set_value( $date );
|
||||
|
||||
is $obj->get_value() , $converted , 'conversion';
|
||||
}
|
||||
|
||||
while (my ($date, $converted) = each %dates ) {
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::date->new();
|
||||
$obj->set_value( $date );
|
||||
|
||||
is $obj->get_value() , $converted . timezone($date), 'conversion';
|
||||
}
|
||||
|
||||
$obj->set_value( '2037-12-31+12:00' );
|
||||
is $obj->get_value() , '2037-12-31+12:00', 'no conversion on match';
|
||||
|
||||
@@ -0,0 +1,32 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use lib '../lib';
|
||||
use Date::Parse;
|
||||
use Date::Format;
|
||||
|
||||
sub timezone {
|
||||
my @time = strptime shift;
|
||||
my $tz = strftime('%z', @time);
|
||||
substr $tz, -2, 0, ':';
|
||||
return $tz;
|
||||
}
|
||||
|
||||
use_ok('SOAP::WSDL::XSD::Typelib::Builtin::dateTime');
|
||||
|
||||
print "# timezone is " . timezone( scalar localtime(time) ) . "\n";
|
||||
my $obj;
|
||||
my %dates = (
|
||||
'2007-12-31 12:32' => '2007-12-31T12:32:00',
|
||||
'2007-08-31 00:32' => '2007-08-31T00:32:00',
|
||||
'30 Aug 2007' => '2007-08-30T00:00:00',
|
||||
);
|
||||
|
||||
while (my ($date, $converted) = each %dates ) {
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::dateTime->new();
|
||||
$obj->set_value( $date );
|
||||
|
||||
is $obj->get_value() , $converted . timezone($date), 'conversion with timezone';
|
||||
}
|
||||
$obj->set_value('2007-12-31T00:00:00.0000000+01:00');
|
||||
@@ -0,0 +1,15 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Scalar::Util qw(blessed);
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::decimal;
|
||||
my $decimal = SOAP::WSDL::XSD::Typelib::Builtin::decimal->new();
|
||||
ok blessed $decimal;
|
||||
is $decimal->get_value(), undef;
|
||||
ok $decimal = SOAP::WSDL::XSD::Typelib::Builtin::decimal->new({ value => 127 });
|
||||
is $decimal * 1, 127, 'numerification';
|
||||
is "$decimal", "127", 'stringification';
|
||||
|
||||
ok $decimal->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
|
||||
# TODO: test range (bigint)
|
||||
@@ -0,0 +1,13 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::double;
|
||||
my $double = SOAP::WSDL::XSD::Typelib::Builtin::double->new();
|
||||
|
||||
ok $double = SOAP::WSDL::XSD::Typelib::Builtin::double->new({ value => 127.23 });
|
||||
is $double * 1, 127.23, 'numerification';
|
||||
is "$double", "127.23", 'stringification';
|
||||
|
||||
ok $double->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
|
||||
# TODO test range
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::float;
|
||||
my $float = SOAP::WSDL::XSD::Typelib::Builtin::float->new();
|
||||
ok $float = SOAP::WSDL::XSD::Typelib::Builtin::float->new({ value => 127.23 });
|
||||
is $float * 1, 127.23, 'numerification';
|
||||
is "$float", "127.23", 'stringification';
|
||||
|
||||
ok $float->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
|
||||
# TODO test range
|
||||
@@ -0,0 +1,11 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::hexBinary;
|
||||
my $hexBinary = SOAP::WSDL::XSD::Typelib::Builtin::hexBinary->new();
|
||||
is $hexBinary->get_value(), undef;
|
||||
$hexBinary = SOAP::WSDL::XSD::Typelib::Builtin::hexBinary->new({});
|
||||
is $hexBinary->get_value(), undef;
|
||||
ok $hexBinary = SOAP::WSDL::XSD::Typelib::Builtin::hexBinary->new({ value => 'a1b2c3d4' });
|
||||
is "$hexBinary", "a1b2c3d4", 'stringification';
|
||||
ok $hexBinary->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::int;
|
||||
my $int = SOAP::WSDL::XSD::Typelib::Builtin::int->new();
|
||||
ok defined $int;
|
||||
ok $int->set_value('127');
|
||||
ok $int = SOAP::WSDL::XSD::Typelib::Builtin::int->new({ value => 127 });
|
||||
is $int * 1, 127, 'numerification';
|
||||
is "$int", "127", 'stringification';
|
||||
|
||||
ok $int->isa('SOAP::WSDL::XSD::Typelib::Builtin::long'), 'inheritance';
|
||||
@@ -0,0 +1,13 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::integer;
|
||||
my $integer = SOAP::WSDL::XSD::Typelib::Builtin::integer->new();
|
||||
is $integer->get_value(), undef;
|
||||
$integer = SOAP::WSDL::XSD::Typelib::Builtin::integer->new({});
|
||||
is $integer->get_value(), undef;
|
||||
ok $integer = SOAP::WSDL::XSD::Typelib::Builtin::integer->new({ value => 127 });
|
||||
is $integer * 1, 127, 'numerification';
|
||||
is "$integer", "127", 'stringification';
|
||||
|
||||
ok $integer->isa('SOAP::WSDL::XSD::Typelib::Builtin::decimal'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::long;
|
||||
my $long = SOAP::WSDL::XSD::Typelib::Builtin::long->new();
|
||||
ok defined $long;
|
||||
ok $long->set_value('127');
|
||||
ok $long = SOAP::WSDL::XSD::Typelib::Builtin::long->new({ value => 127 });
|
||||
is $long * 1, 127, 'numerification';
|
||||
is "$long", "127", 'stringification';
|
||||
|
||||
ok $long->isa('SOAP::WSDL::XSD::Typelib::Builtin::decimal'), 'inheritance';
|
||||
@@ -0,0 +1,10 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger;
|
||||
my $negativeInteger = SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger->new();
|
||||
ok $negativeInteger = SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger->new({ value => 127 });
|
||||
is $negativeInteger * 1, 127, 'numerification';
|
||||
is "$negativeInteger", "127", 'stringification';
|
||||
|
||||
ok $negativeInteger->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger'), 'inheritance';
|
||||
@@ -0,0 +1,10 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger;
|
||||
my $nonNegativeInteger = SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger->new();
|
||||
ok $nonNegativeInteger = SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger->new({ value => 127 });
|
||||
is $nonNegativeInteger * 1, 127, 'numerification';
|
||||
is "$nonNegativeInteger", "127", 'stringification';
|
||||
|
||||
ok $nonNegativeInteger->isa('SOAP::WSDL::XSD::Typelib::Builtin::integer'), 'inheritance';
|
||||
@@ -0,0 +1,10 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger;
|
||||
my $nonPositiveInteger = SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger->new();
|
||||
ok $nonPositiveInteger = SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger->new({ value => 127 });
|
||||
is $nonPositiveInteger * 1, 127, 'numerification';
|
||||
is "$nonPositiveInteger", "127", 'stringification';
|
||||
|
||||
ok $nonPositiveInteger->isa('SOAP::WSDL::XSD::Typelib::Builtin::integer'), 'inheritance';
|
||||
@@ -0,0 +1,22 @@
|
||||
use Test::More tests => 8;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::normalizedString;
|
||||
my $obj = SOAP::WSDL::XSD::Typelib::Builtin::normalizedString->new();
|
||||
is $obj->get_value(), undef;
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::normalizedString->new({});
|
||||
is $obj->get_value(), undef;
|
||||
ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::normalizedString->new({ value => 'Test' });
|
||||
is "$obj", 'Test', 'stringification';
|
||||
|
||||
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::string'), 'inheritance';
|
||||
|
||||
$obj->set_value( "&\t\"Aber\"\n\r<test>");
|
||||
is $obj->get_value() , '& "Aber" <test>';
|
||||
|
||||
is $obj, '& &qout;Aber&qout; <test>'
|
||||
, 'escape text on serialization';
|
||||
|
||||
is $obj->serialize({ name => 'test'})
|
||||
, '<test >& &qout;Aber&qout; <test></test >'
|
||||
, 'Serialization with name';
|
||||
@@ -0,0 +1,10 @@
|
||||
use Test::More tests => 4;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger;
|
||||
my $positiveInteger = SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger->new();
|
||||
ok $positiveInteger = SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger->new({ value => 127 });
|
||||
is $positiveInteger * 1, 127, 'numerification';
|
||||
is "$positiveInteger", "127", 'stringification';
|
||||
|
||||
ok $positiveInteger->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::short;
|
||||
my $short = SOAP::WSDL::XSD::Typelib::Builtin::short->new();
|
||||
ok defined $short;
|
||||
ok $short->set_value('127');
|
||||
ok $short = SOAP::WSDL::XSD::Typelib::Builtin::short->new({ value => 127 });
|
||||
is $short * 1, 127, 'numerification';
|
||||
is "$short", "127", 'stringification';
|
||||
|
||||
ok $short->isa('SOAP::WSDL::XSD::Typelib::Builtin::int'), 'inheritance';
|
||||
@@ -0,0 +1,23 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use lib '../lib';
|
||||
|
||||
use_ok('SOAP::WSDL::XSD::Typelib::Builtin::string');
|
||||
my $obj;
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new({ value => '& "Aber" <test>'});
|
||||
|
||||
is $obj, '& &qout;Aber&qout; <test>'
|
||||
, 'escape text on serialization';
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new();
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new({});
|
||||
$obj->set_value( '& "Aber" <test>');
|
||||
is $obj->get_value() , '& "Aber" <test>';
|
||||
|
||||
is $obj, '& &qout;Aber&qout; <test>'
|
||||
, 'escape text on serialization';
|
||||
|
||||
is $obj->serialize({ name => 'test'})
|
||||
, '<test >& &qout;Aber&qout; <test></test >'
|
||||
, 'Serialization with name';
|
||||
@@ -0,0 +1,25 @@
|
||||
use Test::More tests => 3;
|
||||
use strict;
|
||||
use warnings;
|
||||
use lib '../lib';
|
||||
|
||||
use_ok('SOAP::WSDL::XSD::Typelib::Builtin::time');
|
||||
my $obj;
|
||||
|
||||
$obj = SOAP::WSDL::XSD::Typelib::Builtin::time->new();
|
||||
|
||||
$obj->set_value( '12:23:03' );
|
||||
is $obj->get_value() , '12:23:03+01:00', 'conversion';
|
||||
|
||||
$obj->set_value( '12:23:03.12345+01:00' ), ;
|
||||
is $obj->get_value() , '12:23:03.12345+01:00', 'no conversion';
|
||||
|
||||
|
||||
|
||||
# exit;
|
||||
|
||||
#~ use Benchmark;
|
||||
#~ timethese 10000, {
|
||||
#~ xml => sub { $obj->set_value('2037-12-31T00:00:00.0000000+01:00') },
|
||||
#~ string => sub { $obj->set_value('2037-12-31') },
|
||||
#~ }
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 5;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN;
|
||||
my $NMTOKEN = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN->new();
|
||||
is $NMTOKEN->get_value(), undef;
|
||||
$NMTOKEN = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN->new({});
|
||||
is $NMTOKEN->get_value(), undef;
|
||||
ok $NMTOKEN = SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN->new({ value => 127 });
|
||||
is "$NMTOKEN", "127", 'stringification';
|
||||
|
||||
ok $NMTOKEN->isa('SOAP::WSDL::XSD::Typelib::Builtin::token'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte;
|
||||
my $unsignedByte = SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte->new();
|
||||
ok defined $unsignedByte;
|
||||
ok $unsignedByte->set_value('127');
|
||||
ok $unsignedByte = SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte->new({ value => 127 });
|
||||
is $unsignedByte * 1, 127, 'numerification';
|
||||
is "$unsignedByte", "127", 'stringification';
|
||||
|
||||
ok $unsignedByte->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt;
|
||||
my $unsignedInt = SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt->new();
|
||||
ok defined $unsignedInt;
|
||||
ok $unsignedInt->set_value('127');
|
||||
ok $unsignedInt = SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt->new({ value => 127 });
|
||||
is $unsignedInt * 1, 127, 'numerification';
|
||||
is "$unsignedInt", "127", 'stringification';
|
||||
|
||||
ok $unsignedInt->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong;
|
||||
my $unsignedLong = SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong->new();
|
||||
ok defined $unsignedLong;
|
||||
ok $unsignedLong->set_value('127');
|
||||
ok $unsignedLong = SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong->new({ value => 127 });
|
||||
is $unsignedLong * 1, 127, 'numerification';
|
||||
is "$unsignedLong", "127", 'stringification';
|
||||
|
||||
ok $unsignedLong->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger'), 'inheritance';
|
||||
@@ -0,0 +1,12 @@
|
||||
use Test::More tests => 6;
|
||||
use strict;
|
||||
use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort;
|
||||
my $unsignedShort = SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort->new();
|
||||
ok defined $unsignedShort;
|
||||
ok $unsignedShort->set_value('127');
|
||||
ok $unsignedShort = SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort->new({ value => 127 });
|
||||
is $unsignedShort * 1, 127, 'numerification';
|
||||
is "$unsignedShort", "127", 'stringification';
|
||||
|
||||
ok $unsignedShort->isa('SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger'), 'inheritance';
|
||||
Reference in new issue
Block a user