t/php/func5.t

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;

plan tests => 2, have_module 'php4';

my $path = Apache::Test::vars()->{t_logs};
my $file = "$path/func5.php.ran";
unlink $file if -e $file;

my $expected = <<EXPECT;
foo() will be called on shutdown...
EXPECT

my $result = GET_BODY "/php/func5.php?$file";
ok t_cmp($expected,
         $result,
         "GET request for /php/func5.php?$file"
        );

sleep 1;
ok t_cmp(1,
         -e $file,
         "$file exists"
        );

# Clean up
unlink $file if -e $file;