import SOAP-WSDL 2.00_29 from CPAN

git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
2009-12-12 19:48:17 -08:00
1 parent 2bad767211
commit 874251225f
@@ -0,0 +1,100 @@
+use Test::More tests => 12;
+use File::Basename qw(dirname);
+use File::Spec;
+use File::Path;
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+
+use_ok qw(SOAP::WSDL::Generator::Visitor::Typelib);
+use_ok qw(SOAP::WSDL::Generator::Template::XSD);
+
+use SOAP::WSDL::Expat::WSDLParser;
+
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+
+my $definitions = $parser->parse_file( 
+     "$path/../../../acceptance/wsdl/generator_test_dot_names.wsdl"
+    #"$path/../../../acceptance/wsdl/elementAtomicComplexType.xml"
+);
+
+my $generator = SOAP::WSDL::Generator::Template::XSD->new({
+    definitions => $definitions,
+    type_prefix => 'Foo',
+    element_prefix => 'Foo',
+    typemap_prefix => 'Foo',
+    OUTPUT_PATH => "$path/testlib",
+});
+
+my $code = "";
+$generator->set_output(\$code);  
+$generator->generate_typelib();
+{
+    eval $code;
+    ok !$@;
+    print $@ if $@;
+}
+# print $code;
+
+
+$generator->set_type_prefix('MyTypes');
+$generator->set_element_prefix('MyElements');
+$generator->set_typemap_prefix('MyTypemaps');
+$generator->set_interface_prefix('MyInterfaces');
+
+$generator->set_output(undef);
+$generator->generate();
+#$generator->generate_typelib();
+#$generator->generate_typemap();
+
+if (eval { require Test::Warn; }) {
+   Test::Warn::warning_like( sub { $generator->generate_interface() }, 
+    qr{\A Multiple \s parts \s detected \s in \s message \s testMultiPartWarning}xms);
+} 
+else {
+    $generator->generate_interface();
+    SKIP: { skip 'Cannot test warnings without Test::Warn', 1 };
+}
+
+$generator->generate_server();
+
+eval "use lib '$path/testlib'";
+
+use_ok qw(MyInterfaces::My::SOAP::testService::testPort);
+use_ok qw(MyServer::My::SOAP::testService::testPort);
+SKIP: {
+    eval { require Test::Pod::Content; }
+        or skip 'Cannot test pod content without Test::Pod::Content', 6;
+    Test::Pod::Content::pod_section_like(
+        'MyInterfaces::My::SOAP::testService::testPort', 
+        'NAME', 
+        qr{^MyInterfaces::My::SOAP::testService::testPort \s - \s}xms,
+        'Pod NAME section');
+    Test::Pod::Content::pod_section_like(
+        'MyInterfaces::My::SOAP::testService::testPort', 
+        'SYNOPSIS', 
+        qr{use \s MyInterfaces::My::SOAP::testService::testPort}xms,
+        'Pod SYNOPSIS section');
+    Test::Pod::Content::pod_section_like(
+        'MyInterfaces::My::SOAP::testService::testPort', 
+        'SYNOPSIS', 
+        qr{\s MyInterfaces::My::SOAP::testService::testPort->new\(}xms,
+        'Pod SYNOPSIS section');
+
+    Test::Pod::Content::pod_section_like(
+        'MyServer::My::SOAP::testService::testPort', 
+        'NAME', 
+        qr{^MyServer::My::SOAP::testService::testPort \s - \s}xms,
+        'Pod NAME section');
+    Test::Pod::Content::pod_section_like(
+        'MyServer::My::SOAP::testService::testPort', 
+        'SYNOPSIS', 
+        qr{use \s MyServer::My::SOAP::testService::testPort}xms,
+        'Pod SYNOPSIS section');
+    Test::Pod::Content::pod_section_like(
+        'MyServer::My::SOAP::testService::testPort', 
+        'SYNOPSIS', 
+        qr{\s MyServer::My::SOAP::testService::testPort->new\(}xms,
+        'Pod SYNOPSIS section');
+}
+
+rmtree "$path/testlib";