1#!/usr/bin/perl -w 2use Test::More tests => 5; 3BEGIN {use_ok('Pod::WSDL::Utils')} 4use strict; 5use warnings; 6 7# test getTypeDescr() 8ok(Pod::WSDL::Utils::getTypeDescr('int', 0, undef) eq 'xsd:int', 'getTypeDescr() returns simple scalar type correctly'); 9ok(Pod::WSDL::Utils::getTypeDescr('int', 1, undef) eq 'tns1:ArrayOfInt', 'getTypeDescr() returns simple array type correctly'); 10ok(Pod::WSDL::Utils::getTypeDescr('foo', 0, OwnType->new) eq 'tns1:wsdlName', 'getTypeDescr() returns complex scalar type correctly'); 11ok(Pod::WSDL::Utils::getTypeDescr('foo', 1, OwnType->new) eq 'tns1:ArrayOfWsdlName', 'getTypeDescr() returns complex array type correctly'); 12 13package OwnType; 14 15sub new { 16 bless {}, 'OwnType'; 17} 18 19sub wsdlName { 20 return 'wsdlName'; 21}