From c9cf025fadfe043f0f2f679e10d1207d8a158bb6 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:01:31 +0200 Subject: Adding debian version 2.4.57-2. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/php/getlastmod.t | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 debian/perl-framework/t/php/getlastmod.t (limited to 'debian/perl-framework/t/php/getlastmod.t') diff --git a/debian/perl-framework/t/php/getlastmod.t b/debian/perl-framework/t/php/getlastmod.t new file mode 100644 index 0000000..4e1b7b1 --- /dev/null +++ b/debian/perl-framework/t/php/getlastmod.t @@ -0,0 +1,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()" +); -- cgit v1.2.3