Fergal Daly wrote:
> Hi,
> is it possible with Test::Harness and MakeMaker to pass arguments
> to my test scripts? I think it's not but I just want to check for sure.
> The module I'm working on is getting a new "optimised" mode so I'd like
> to be able to run all the tests twice, once with and once without the
> optimiser.
I have a similar problem; I'd like some of my test programs
to generate other test programs on the fly, then run them.
This seems to work:
use strict;
use Test::Harness;
my $outf = 'out.tmp';
print "1..1\n";
local *SAVOUT; open(SAVOUT, ">&STDOUT"); # save original STDOUT
open(STDOUT, '>'.$outf) or die "error: open '$outf': $!";
my $success = runtests('t/some_generated_test.t');
open(STDOUT, ">&SAVOUT"); # restore STDOUT
$success or print "not ";
print "ok 1\n";
but I feel odd. Or should I generate them in Makefile.PL?
Does anyone know of a CPAN module that generates its test programs?
More generally, which CPAN modules have particularly good test
suites, worthy of study?
/-\
http://mobile.yahoo.com.au - Yahoo! Mobile
- Check & compose your email via SMS on your Telstra or Vodafone mobile.
