April 14, 2012 | 82% of Perl Testing | Back Next |
my ($self, $expected, $got, $language);
new(): typical case
$self = Alpha->new( { name => 'Sylvester', string => 'some string', } ); ok($self, "Alpha->new() returned true value");
new() without 'name' element
$self = Alpha->new( { string => 'some string', } ); ok($self, "Alpha->new() returned true value even without 'name' argument");
Home Last TOC | Copyright © 2012 James E Keenan | Back Next |