April 14, 2012 | 82% of Perl Testing | Back Next |
new() with undefined value for 'name' element
$self = Alpha->new( { name => undef, string => 'some string', } ); ok($self, "Alpha->new() returned true value");
get_name() default case
$got = $self->get_name(); is( $got, 'George', "get_name() returned 'George' as expected in default case" );
Home Last TOC | Copyright © 2012 James E Keenan | Back Next |