import SOAP-WSDL 2.00_06 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_06
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_06.tar.gz

t/012_element.t

@@ -7,6 +7,7 @@ use lib 't/lib';
 
 use_ok qw(SOAP::WSDL::XSD::Typelib::Element);
 use_ok qw( MyElement );
+
 # simple type derived from builtin via restriction
 my $obj = MyElement->new({ value => 'test'});
 ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
@@ -20,10 +21,10 @@ ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
 ok $obj->get_test->isa('SOAP::WSDL::XSD::Typelib::Builtin::string')
     , 'element isa';
 
-is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><MyTestElement >Test</MyTestElement>'
-    . '<MyTestElement2 >Test2</MyTestElement2></MyAtomicComplexTypeElement>'
+is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><test >Test</test>'
+    . '<test2 >Test2</test2></MyAtomicComplexTypeElement>'
     , 'stringification';
-
+
 $obj = MyElement->new({ value => undef});
 ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
     , 'inherited class';
@@ -33,12 +34,16 @@ ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
 $obj = MyAtomicComplexTypeElement->new({ test=> 'Test', test2 => [ 'Test2', 'Test3' ]});
 ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
     , 'inherited class';
-is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><MyTestElement >Test</MyTestElement>'
-    . '<MyTestElement2 >Test2</MyTestElement2>'
-    . '<MyTestElement2 >Test3</MyTestElement2>'
+is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test" ><test >Test</test>'
+    . '<test2 >Test2</test2>'
+    . '<test2 >Test3</test2>'
     . '</MyAtomicComplexTypeElement>'
     , 'multi value stringification';
-
+
+use diagnostics;
+
+ok $obj = MyComplexTypeElement->new({ MyTestName => 'test' });
+is $obj, '<MyComplexTypeElement xmlns="urn:Test" ><MyTestName >test</MyTestName ></MyComplexTypeElement>';
 
 __END__