Lines Matching refs:a1
8 my $a1 = new Pod::WSDL::Attr();
14 my $a1 = new Pod::WSDL::Attr('myAttr $string _NEEDED blah blah ...');
20 my $a1 = new Pod::WSDL::Attr('_ATTR myAttr string _NEEDED blah blah ...');
25 my $a1 = new Pod::WSDL::Attr('_ATTR myAttr $string _NEEDED blah blah ...');
27 ok($a1->name eq 'myAttr', 'Read name correctly from input');
28 ok($a1->type eq 'string', 'Read type correctly from input');
29 ok($a1->array == 0, 'Read scalar type correctly from input');
30 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
32 ok($a1->nillable == undef, 'Read _NEEDED correctly from input');
35 $a1 = new Pod::WSDL::Attr(' _ATTR myAttr $string _NEEDED blah blah ...');
36 ok($a1->name eq 'myAttr', 'Handles whitespace before _ATTR correctly.');
38 $a1 = new Pod::WSDL::Attr('_ATTR myAttr @string _NEEDED blah blah ...');
39 ok($a1->array == 1, 'Read array type correctly from input');
41 $a1 = new Pod::WSDL::Attr('_ATTR myAttr @string blah blah etc ...');
42 ok($a1->nillable eq 'true' && $a1->descr eq 'blah blah etc ...', 'Read descr correctly from input without needed');
44 $a1 = new Pod::WSDL::Attr('_ATTR myAttr @string _NEEDED');
45 ok($a1->descr eq '', 'No description is handled correctly');
48 $a1->name('foo');