April 14, 2012 82% of Perl Testing Back

Testing Alpha::new()

        my ($self, $expected, $got, $language);
        $self = Alpha->new( {
            name    => 'Sylvester',
            string  => 'some string',
        } ); 
        ok($self, "Alpha->new() returned true value");
        $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