import SOAP-WSDL 1.24 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 1.24 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-1.24.tar.gz
2009-12-12 19:47:56 -08:00
parent 7ba2f93e44
commit 9e85f63aa0
228 changed files with 2369 additions and 22762 deletions
@@ -1,88 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use warnings;
-use Test::More tests => 5;
-use lib 't/lib';
-use lib '../lib';
-use lib 'lib';
-
-use SOAP::WSDL::SAX::WSDLHandler;
-use Cwd;
-
-use_ok(qw/SOAP::WSDL::SAX::MessageHandler/);
-
-use SOAP::WSDL;
-use SOAP::WSDL::XSD::Typelib::Builtin;
-my $path = cwd;
-$path =~s|\/t\/?$||;      # allow running from t/ and above (Build test)
-
-
-my $parser; 
-
-ok $parser = SOAP::WSDL::Expat::MessageParser->new({
-    class_resolver => FakeResolver->new(),
-}), "Object creation";
-
-# TODO factor out into bool test
-
-$parser->parse( xml() );
-
-if($parser->get_data()->get_MMessage()->get_MDeliveryReportRecipientURI()) {
-    pass "bool context overloading";
-}
-else
-{
-    fail "bool context overloading"
-}
-
-# TODO factor out into different test
-
-my $soap = SOAP::WSDL->new(
-    readable => 1,
-    wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
-)->wsdlinit();
-
-$soap->servicename('MessageGateway');
-
-ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
-ok( $soap->readable( 0 ) , "Set readable");
-
-sub xml {
-q{<SOAP-ENV:Envelope
-        xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
-        xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
-        xmlns:tns="http://www.example.org/MessageGateway2/"
-        xmlns:xsd="http://www.w3.org/2001/XMLSchema"
-        xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
-    <SOAP-ENV:Body ><EnqueueMessage><MMessage>
-                <MRecipientURI>mailto:test@example.com</MRecipientURI>
-                <MMessageContent>TestContent for Message</MMessageContent>
-                <MMessageContent>TestContent for Message 2</MMessageContent>
-                <MSenderAddress>martin.kutter@example.com</MSenderAddress>
-                <MDeliveryReportRecipientURI>mailto:test@example.com</MDeliveryReportRecipientURI>
-    </MMessage></EnqueueMessage></SOAP-ENV:Body></SOAP-ENV:Envelope>};
-}
-
-# data classes reside in t/lib/Typelib/
-BEGIN {
-    package FakeResolver;
-    {
-        my %class_list = (
-            'EnqueueMessage' => 'Typelib::TEnqueueMessage',
-            'EnqueueMessage/MMessage' => 'Typelib::TMessage',
-            'EnqueueMessage/MMessage/MRecipientURI' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
-            'EnqueueMessage/MMessage/MMessageContent' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-            'EnqueueMessage/MMessage/MSenderAddress' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-            'EnqueueMessage/MMessage/MMessageContent' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
-            'EnqueueMessage/MMessage/MDeliveryReportRecipientURI' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
-        );
-
-        sub new { return bless {}, 'FakeResolver' };
-
-        sub get_class {
-            my $name = join('/', @{ $_[1] });
-            return ($class_list{ $name }) ? $class_list{ $name }
-                : warn "no class found for $name";
-        };
-    };
-};