use strict;
use warnings;
use Test::More;
my $ntests = 9;
plan tests => $ntests;
{
my $expected_version = 'v5.32.1';
cmp_ok( $^V, 'eq', $expected_version, "Version = $expected_version"
+ );
}
{
my %hash;
ok( !%hash, "Empty: !\%hash" );
ok( !scalar(%hash), "Empty: ! scalar" );
cmp_ok( scalar(%hash), '==', 0, "Empty: 0 == scalar" );
ok( !keys(%hash), "Empty: ! keys" );
++$hash{entry};
ok( (%hash ? 1 : 0), "Not empty: \%hash" );
ok( scalar(%hash), "Not empty: scalar" );
cmp_ok( scalar(%hash), '!=', 0, "Not empty: scalar != 0" );
ok( (keys(%hash) ? 1 : 0), "Not empty: keys" );
}
Some points to note:
- I always prefer Test::More to Test::Simple because that scales better as test scripts grow more complex over time.
- At the top of your test script, you should explicitly declare how many tests your script intends to run, to protect against premature failure. I always use plan for this because as test scripts grow more complex over time you sometimes need to calculate this number.
- I pulled a face the instant I saw your &ok() function calling style! Haven't seen that dreadful old style for 20 years! :) From Perl Best Practices: Call subroutines with parentheses but without a leading & (item 113). Update: see also.
- Minimize the scope of variables. I find bare blocks a convenient way to do this in test scripts. Just because it is a test script doesn't mean you should drop basic standards of code quality.
- Prefer cmp_ok to ok because you get clearer diagnostics when a test fails (see below for an example).
- Don't repeat yourself. Test scripts are programs and you should follow the same coding quality standard in the test scripts as for the code under test. Doing this makes long term code maintenance more enjoyable and less error-prone.
When I first ran your test script, it failed with:
not ok 1 - Version = v5.32.1
# Failed test 'Version = v5.32.1'
# at badtests1.pl line 8.
Note that using cmp_ok instead of ok provides clearer diagnostics:
# Failed test 'Version = v5.32.1'
# at badtests2.pl line 9.
# got: 'v5.32.0'
# expected: 'v5.32.1'
See Also
|