April 14, 2012 | 82% of Perl Testing | Back Next |
is_valid_plang: test for no argument provided
ok(! defined($self->is_valid_plang()), "is_valid_plang() returned undefined");
is_valid_plang: test for invalid value
uncomment to see test FAIL
# $language = 'abracadabra'; # ok($self->is_valid_plang($language), # "'$language' is a valid language");
is_valid_plang: test for invalid value (correctly written)
$language = 'abracadabra'; ok(! $self->is_valid_plang($language), "'$language' is not a valid language");
Home Last TOC | Copyright © 2012 James E Keenan | Back Next |