1use Test::More qw(no_plan); 2use SOAP::Lite; 3 4ok my $schema = SOAP::Schema::WSDL->new(); 5 6my $element = SOAP::Custom::XML::Data 7 -> SOAP::Data::name('schema') 8 -> set_value( 9 SOAP::Custom::XML::Data 10 -> SOAP::Data::name('complexType') 11 ->attr({ name => 'test' }) 12); 13 14my @result = SOAP::Schema::WSDL::parse_schema_element( $element ); 15is @result, 0, 'empty elements on empty complexType' 16 17