1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest qw(GET_BODY);
use Apache::TestUtil;
use File::Spec::Functions qw(catfile);
use POSIX qw(strftime);
plan tests => 1, need_php;
my $vars = Apache::Test::vars();
my $fname = catfile $vars->{documentroot}, "php", "getlastmod.php";
my $mtime = (stat($fname))[9] || die "could not find file";
my $month = strftime "%B", gmtime($mtime);
ok t_cmp(
GET_BODY("/php/getlastmod.php"),
$month,
"getlastmod()"
);
|
