April 14, 2012 82% of Perl Testing Back

Testing Alpha::is_valid_plang()

        $self = Alpha->new( { string  => 'abcxyz' } ); 
        ok($self, "Alpha->new() returned true value");
        $language = 'perl';
        ok($self->is_valid_plang($language), "'$language' is a valid language");
        $language = 'Perl';
        ok($self->is_valid_plang($language), "'$language' is a valid language");
        $language = 'Python';
        ok($self->is_valid_plang($language), "'$language' is a valid language");


Home Last TOC Copyright © 2012 James E Keenan Back Next