use Apache::testold;

skip_test if $] >= 5.005; #will fix later
skip_test unless $net::callback_hooks{PERL_RUN_XS};

#print fetch "/perl_xs/api.pl";

$ENV{PERL_DIR} = "/perl_xs";

my $dir = "";
for (qw(.. .)) {
    $dir = $_;
    last if -d "$dir/internal";
}

my $i = 0;
my @internal = map { "$dir/internal/$_" } 
qw(api.t http-get.t http-post.t table.t);
my $tests = @internal;
print "1..$tests\n";

for (@internal) {
    my($max, $failed) = run_test($_, 1);
    test ++$i, not @$failed;
    if(@$failed) {
	print "Test $_ failed tests ", join(", ", @$failed), "\n";
    }
}

