Re: Tests running Tests

[Tim Bunce]

On Tue, Apr 12, 2005 at 02:02:07PM -0400, Sam Tregar wrote:
> On Tue, 12 Apr 2005, Paul Johnson wrote:
> 
> > I would do it in the same way as if this had nothing to do with tests.
> > That is, abstract away the common code into a module, which can also
> > live under t/
> 
> That would be a lot of work in this case.  I found an easier
> solution.  In tweek-then-foo.t:
> 
>   {
>      local $ENV{SUB_TEST} = 1;
>      do 't/foo.t' or die ...;
>   }

That's almost exactly what the DBI does when testing DBI::PurePerl.

        #!perl -w
        local $ENV{DBI_PUREPERL} = 2;
        do 't/01basics.t' or warn $!;
        die if $@;
        exit 0

I found the "... or warn $!; die if $@;" incantation worked best.

The DBI's Makefile.PL automatically writes a zvpp_*.t for all
existing *.t files. I've appended the code that does that.
Note the extra wrinkle to DTRT for threads.

Tim.


        foreach my $test (sort @tests) {
            next if $test !~ /^[0-8]/;
            my $usethr = ($test =~ /(\d+|\b)thr/ && $] >= 5.008 && 
$Config{useithreads});

            while ( my ($v_type, $v_info) = each %test_variants ) {
                my $v_test = "t/zv${v_type}_$test";
                printf "Creating %-16s test variant: $v_test %s\n",
                    $v_info->{name}, ($usethr) ? "(use threads)" : "";
                open PPT, ">$v_test" or warn "Can't create $v_test: $!";
                print PPT "#!perl -w\n";
                print PPT "use threads;\n" if $usethr;
                print PPT "$_\n" foreach @{$v_info->{add}};
                print PPT "do 't/$test' or warn \$!;\n";
                print PPT 'die if $@;'."\n";
                print PPT "exit 0\n";
                close PPT or warn "Error writing $v_test: $!";
            }
        }