April 14, 2012 | 82% of Perl Testing | Back Next |
new(): 'string' element is empty string
method will 'die'; capture error message
eval { $self = Alpha->new( { string => '', } ); }; like($@, qr/Alpha::new\(\) needs 'string' argument/, "Alpha->new(): got expected error message when 'string' was empty");
done_testing();
Home Last TOC | Copyright © 2012 James E Keenan | Back Next |