1#!/usr/bin/perl -w
2use Test::More tests => 7;
3BEGIN {use_ok('Pod::WSDL::Doc')}
4use strict;
5use warnings;
6
7eval {
8	my $a1 = new Pod::WSDL::Doc();
9};
10
11ok(defined $@, 'new dies, if it does not get a string');
12
13eval {
14	my $a1 = new Pod::WSDL::Doc('blah blah ...');
15};
16
17ok(defined $@, 'new dies, if it does not get a string beginning with _DOC');
18
19my $a1 = new Pod::WSDL::Doc('_DOC blah blah ...');
20
21ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
22
23$a1 = new Pod::WSDL::Doc('   _DOC blah blah ...');
24ok($a1->descr eq 'blah blah ...', 'Handles whitespace before _DOC correctly.');
25
26$a1 = new Pod::WSDL::Doc('_DOC');
27ok($a1->descr eq '', 'No description is handled correctly');
28
29$a1->descr('more blah');
30ok($a1->descr eq 'more blah', 'Setting description works');
31