G'day nysus,

I often use the plan() function of Test::More like this:

use Test::More;

my @tests = (
    [ @test_input_args_1, $expected_output_1 ],
    ...
    [ @test_input_args_N, $expected_output_N ],
);

plan tests => scalar @tests;

# run tests here
[download]

Here's three examples from posts I've made in recent weeks:

• Re: Recognizing 3 and 4 digit number
• Re: Win32 ->Replacement->{Text} more than 255 characters
• Re: OCR matching regex

The Test::More doco gives this example:

plan tests => keys %Stuff * 3;
[download]