April 14, 2012 82% of Perl Testing Back

Testing Alpha::get_string()

        $expected = 'abcxyz';
        $self = Alpha->new( { string  => $expected } ); 
        ok($self, "Alpha->new() returned true value");
        $got = $self->get_string();
        is( $got, $expected, "get_string() returned '$expected' as expected" );


Home Last TOC Copyright © 2012 James E Keenan Back Next