import SOAP-WSDL 2.00.04 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.04 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.04.tar.gz
2009-12-12 19:48:44 -08:00
parent e58a27e2ad
commit c3e3d1908e
80 changed files with 2351 additions and 802 deletions
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
-use Test::More tests => 1; #qw(no_plan);
+use Test::More tests => 2; #qw(no_plan);

 use_ok qw(SOAP::WSDL::XSD::AttributeGroup);

+ok my $group = SOAP::WSDL::XSD::AttributeGroup->new();
@@ -1,104 +0,0 @@
-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,10 @@
+use Test::More tests => 4;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin::QName;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::QName->new();
+ok defined $obj;
+ok $obj->set_value('wsdl:foo');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::QName->new({ value => 'wsdl:foo' });
+
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
@@ -1,7 +1,8 @@
 use strict;
 use warnings;
-use Test::More tests => 24;
+use Test::More tests => 26;
 use Scalar::Util qw(blessed);
+use Storable;
 use lib '../../../../../../lib';
 use_ok qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);

@@ -11,8 +12,7 @@ my $id = ${ $obj };
 undef $obj;

 $obj = SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType->new();
-
-is ${ $obj }, $id;
+is ${ $obj }, $id, 'object cache';

 ok blessed $obj, 'constructor returned blessed reference';

@@ -30,6 +30,12 @@ is $obj->end_tag({ name => 'test' }), '</test>', 'end_tag';
 ok $obj->set_value('test'), 'set_value';
 is $obj->get_value(), 'test', 'get_value';

+is Storable::thaw(Storable::freeze($obj))->get_value, $obj->get_value(),
+    'frozen/thawed object keeps value';
+
+is Storable::thaw(Storable::freeze($obj))->serialize, $obj->serialize(),
+    'frozen/thawed object serialize is same as original (overload works)';
+
 ok ! $obj->attr(), 'attr';

 is "$obj", q{test}, 'stringification overloading';
@@ -0,0 +1,12 @@
+use Test::More tests => 5;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin::duration;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::duration->new();
+ok defined $obj;
+ok $obj->set_value('27');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::duration->new({ value => 'P1347Y'});
+
+is "$obj", 'P1347Y', 'stringification';
+
+ok $obj->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::gDay;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::gDay->new();
+ok defined $obj;
+ok $obj->set_value('27');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::gDay->new({ value => 27 });
+is $obj * 1, 27, 'numerification';
+is "$obj", "27", 'stringification';
+
+ok $obj->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::gMonth;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::gMonth->new();
+ok defined $obj;
+ok $obj->set_value('12');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::gMonth->new({ value => 12 });
+is $obj * 1, 12, 'numerification';
+is "$obj", "12", 'stringification';
+
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
@@ -0,0 +1,11 @@
+use Test::More tests => 5;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay;
+my $gMonthDay = SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay->new();
+ok defined $gMonthDay;
+ok $gMonthDay->set_value('12-27');
+ok $gMonthDay = SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay->new({ value => '12-27' });
+is "$gMonthDay", "12-27", 'stringification';
+
+ok $gMonthDay->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::gYear;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::gYear->new();
+ok defined $obj;
+ok $obj->set_value('1271');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::gYear->new({ value => 1271 });
+is $obj * 1, 1271, 'numerification';
+is "$obj", "1271", 'stringification';
+
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
@@ -0,0 +1,11 @@
+use Test::More tests => 5;
+use strict;
+use warnings;
+use SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth;
+my $obj = SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth->new();
+ok defined $obj;
+ok $obj->set_value('1271');
+ok $obj = SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth->new({ value => '1271-12' });
+is "$obj", "1271-12", 'stringification';
+
+ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType'), 'inheritance';
@@ -337,8 +337,12 @@ ok ! UNIVERSAL::can('MyType', 'set_FOO'), 'UNIVERSAL::can("MyTypes", "set_FOO")'
 eval { MyType->new({ FOO => 42 }) };
 like $@, qr{unknown \s field \s}xm, 'error passing unknown field to constructor';

-eval { SOAP::WSDL::XSD::Typelib::ComplexType::AUTOMETHOD() };
-like $@, qr{Cannot \s call}xm;
+eval {
+    # catch warning - 
+    local $SIG{__WARN__} = sub {};
+    SOAP::WSDL::XSD::Typelib::ComplexType::AUTOMETHOD()
+};
+like $@, qr{Cannot \s call}xm, 'error calling AUTOMETHOD as function';

 eval { SOAP::WSDL::XSD::Typelib::ComplexType->_factory([], { test => {} }, {}) };
 like $@, qr{ No \s class \s given \s for \s }xms;