April 14, 2012 |
82% of Perl Testing |
Back
Next
|
$ prove -v t/all_methods.t
t/all_methods.t ..
ok 1 - Alpha->new() returned true value
ok 2 - Alpha->new() returned true value even without 'name' argument
ok 3 - Alpha->new() returned true value
ok 4 - get_name() returned 'Sylvester' as expected
ok 5 - Alpha->new() returned true value
ok 6 - get_name() returned 'George' as expected in default case
ok 7 - Alpha->new() returned true value
ok 8 - get_string() returned 'abcxyz' as expected
ok 9 - Alpha->new() returned true value
ok 10 - 'perl' is a valid language
ok 11 - 'Perl' is a valid language
ok 12 - 'Python' is a valid language
ok 13 - is_valid_plang() returned undefined
ok 14 - 'abracadabra' is not a valid language
ok 15 - Alpha->new(): got expected error message when 'string' was not defined
ok 16 - Alpha->new(): got expected error message when 'string' was empty
1..16
ok
All tests successful.
Files=1, Tests=16, 1 wallclock secs
( 0.13 usr 0.04 sys + 0.11 cusr 0.03 csys = 0.31 CPU)
Result: PASS