import SOAP-WSDL 2.00_16 from CPAN

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

t/SOAP/WSDL/Generator/Template.t

@@ -0,0 +1,63 @@
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use Template;
+use File::Basename;
+use File::Spec;
+use SOAP::WSDL::Expat::WSDLParser;
+use SOAP::WSDL::Generator::Template::XSD;
+
+my $path = dirname __FILE__;
+
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+
+$parser->parse_file("$path/../../../acceptance/wsdl/006_sax_client.wsdl");
+#"$path/../../../../example/wsdl/globalweather.xml");
+my $definitions = $parser->get_data();
+
+my $generator = SOAP::WSDL::Generator::Template::XSD->new({
+    definitions => $definitions,
+});
+my $output = q{};
+$generator->generate_interface({
+    NO_POD => 1,
+    output => \$output,
+});
+
+ok eval $output;
+
+$output = q{};
+$generator->generate_typemap({
+    NO_POD => 1,
+    output => \$output,
+});
+
+ok eval $output;
+print $@ if $@;
+
+print $output;
+__END__
+
+my $tt = Template->new( 
+    DEBUG => 1,
+    EVAL_PERL => 1,
+    RECURSION => 1,
+    INCLUDE_PATH => "$path/../../../../lib/SOAP/WSDL/Template",
+);
+
+foreach my $service (@{ $definitions->get_service }) {
+    my $output;
+    $tt->process( 'Interface.tt', { 
+        definitions => $definitions,
+        service => $service,
+        interface_prefix => 'MyInterface',
+        type_prefix => 'MyTypes',
+        TYPE_PREFIX => 'MyTypes',
+        element_prefix => 'MyElement',
+    }, \$output);
+    die $tt->error if $tt->error();
+    
+    ok eval $output, 'eval output';
+    
+    print $output;
+};