April 14, 2012 82% of Perl Testing Back

Testing Alpha::is_valid_plang() (2)

        ok(! defined($self->is_valid_plang()),
            "is_valid_plang() returned undefined");
        # $language = 'abracadabra';
        # ok($self->is_valid_plang($language),
        # "'$language' is a valid language");
        $language = 'abracadabra';
        ok(! $self->is_valid_plang($language),
            "'$language' is not a valid language");


Home Last TOC Copyright © 2012 James E Keenan Back Next