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