Re: No plan "weakens" my Test scripts?

'no_plan' is good when you're willy-nilly writing tests and don't want to keep jumping to the top of your file to update the number of tests. (Alternative frameworks like Test::Class actually help keep count for you and it plays nicely with Test::More and friends).

If you have a knowable number of test cases, you can always count the number and pass that to the plan (either on the "use" line or with the "plan" function. For example:

use Test::More;

open my($fh), "<datafile";
my $count = do { my $i; $i++ while <$fh>; $i };
seek ( $fh, 0, 0 );

plan tests => $count;

load_database("datafile"); # or whatever

while (<$fh>) {
  ok( in_database( $_ ) );
}
[download]

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Comment on Re: No plan "weakens" my Test scripts? Download Code

Replies are listed 'Best First'.
Re^2: No plan "weakens" my Test scripts? by Aristotle (Chancellor) on Feb 19, 2005 at 03:29 UTC
`my $count = do { my $i; $i++ while <$fh>; $i };` [download] `my $count = do { () = <$fh>; $. };` [download] Makeshifts last the longest.	[reply] [d/l] [select]
Re^3: No plan "weakens" my Test scripts? (slurps) by tye (Sage) on Feb 20, 2005 at 03:16 UTC
I'm pretty sure that `() = <$fh>` loads the entire file contents into memory at once (on the stack), not throwing any of it away until the entire file has been read. So you might as well just use: `my $count= ()= <$fh>;` [download] If you want to avoid memory use: `my $count= do { 0 while <$fh>; $. };` [download] - tye	[reply] [d/l] [select]
Re^4: No plan "weakens" my Test scripts? (slurps) by xdg (Monsignor) on Feb 22, 2005 at 02:09 UTC
I was willing to 'waste' the memory on the $i variable for clarity in my example since the discussion was about testing and not about file line counting. (Why make someone who doesn't know it look up $. just to understand an example?) :-) -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply]


Think about Loose Coupling
	PerlMonks