use Test::More tests => 11;
BEGIN {use_ok('Pod::WSDL::Return')}
use strict;
use warnings;
eval {
my $a1 = new Pod::WSDL::Return();
};
ok(defined $@, 'new dies, if it does not get a string');
eval {
my $a1 = new Pod::WSDL::Return('$string blah blah ...');
};
ok(defined $@, 'new dies, if it does not get a string beginning with _RETURN');
eval {
my $a1 = new Pod::WSDL::Return('_RETURN string blah blah ...');
};
ok(defined $@, 'new dies, if array/scalar type is not specified');
my $a1 = new Pod::WSDL::Return('_RETURN $string blah blah ...');
ok($a1->type eq 'string', 'Read type correctly from input');
ok($a1->array == 0, 'Read scalar type correctly from input');
ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
$a1 = new Pod::WSDL::Return(' _RETURN $string blah blah ...');
ok($a1->type eq 'string', 'Handles whitespace before _RETURN correctly.');
$a1 = new Pod::WSDL::Return('_RETURN @string blah blah ...');
ok($a1->array == 1, 'Read array type correctly from input');
$a1 = new Pod::WSDL::Return('_RETURN @string');
ok($a1->descr eq '', 'No description is handled correctly');
eval {
$a1->type('foo');
};
{
no warnings;
ok($@ == undef, 'Renaming return type is forbidden.');
}