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}