April 14, 2012 82% of Perl Testing Back

Testing Alpha::get_name() (2)

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