Info about Test::Harness

Kashratul has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I have a perl file that uses selenium to open gmail -> log in -> log out.

The code is working correctly.

I have used Test::Harness just for a try.

use Test::Harness (runtests, execute_tests) ;
@test_files = qw (gmail_selenium.pl);
execute_tests(tests => \@test_files);
[download]

This is working correctly.

Now if I modify the code little bit:

use Test::Harness (runtests, execute_tests) ;
@test_files = qw (gmail_selenium.pl);
$total = execute_tests(tests => \@test_files);
print $total->{max};
[download]

All is working correctly but the last line is not getting printed.

As per the information in CPAN (Test::Harness) => "Returns a list of two values, $total and $failed, describing the results."

I felt $total->{max} will return the total number of test runned (based on the info given in CPAN).

Can some one guide me why this is not getting printed?

Thanks

Comment on Info about Test::Harness Select or Download Code

Replies are listed 'Best First'.
Re: Info about Test::Harness by Anonymous Monk on Mar 27, 2008 at 09:34 UTC
you want runtests	[reply]
Re: Info about Test::Harness by leriksen (Curate) on Mar 28, 2008 at 02:17 UTC
Because execute_tests returns a list of two items, you end up assigning the fail results to $total (the last thing in the list - lookup "list assignment in a scalar context" and "comma operator" to find out why). If you want the totals hash ref, do this `($total, undef) = execute_tests(...);` [download] ...reality must take precedence over public relations, for nature cannot be fooled. - R P Feynmann	[reply] [d/l]