dinislage/SOAP-WSDL
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00.01 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.01
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.01.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:48:32 -08:00
1 parent 0cbf981665
commit 745ce925c1
111 files changed
+1106 -673
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

t/SOAP/WSDL/XSD/Typelib/Attribute.t
+16 -3
View File
@@ -1,7 +1,20 @@
package XML::id;
use strict; use warnings;
use base qw(SOAP::WSDL::XSD::Typelib::Attribute SOAP::WSDL::XSD::Typelib::Builtin::string);
sub get_xmlns { 'http://www.w3.org/XML/1998/namespace' };
__PACKAGE__->__set_name('id');
package main;
use strict;
use warnings;
use Test::More tests => 3; #qw(no_plan);
use Test::More tests => 4; #qw(no_plan);
use_ok qw(SOAP::WSDL::XSD::Typelib::Attribute);
is SOAP::WSDL::XSD::Typelib::Attribute->start_tag(), '';
is SOAP::WSDL::XSD::Typelib::Attribute->start_tag({ name => 'foo'}, 'bar'), q{ foo="};
no strict qw(refs);
*{ 'SOAP::WSDL::XSD::Typelib::Attribute::get_xmlns' } = sub { 'urn:Test' };
is( SOAP::WSDL::XSD::Typelib::Attribute->start_tag(), '');
is(SOAP::WSDL::XSD::Typelib::Attribute->start_tag({ name => 'foo'}, 'bar'), q{ foo="});
my $id = XML::id->new({ value => 'foo' });
is( $id->serialize({ name => 'id' }), q{ xml:id="foo"});