42 lines
928 B
Perl
42 lines
928 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
|
|
#
|
|
# check that the comment and the #define in ap_mmn.h are equal
|
|
#
|
|
|
|
plan tests => 2, need_apache 2;
|
|
|
|
my $config = Apache::TestConfig->thaw();
|
|
my $filename = $config->apxs('INCLUDEDIR') . '/ap_mmn.h';
|
|
|
|
my $cmajor;
|
|
my $cminor;
|
|
my $major;
|
|
my $minor;
|
|
my $skip;
|
|
if (open(my $fh, "<", $filename)) {
|
|
while (defined (my $line = <$fh>)) {
|
|
if ($line =~ m/^\s+[*]\s+(\d{8})[.](\d+)\s+\([\d.]+(?:-dev)?\)\s/ ) {
|
|
$cmajor = $1;
|
|
$cminor = $2;
|
|
}
|
|
elsif ($line =~ m{^#define\s+MODULE_MAGIC_NUMBER_MAJOR\s+(\d+)(?:\s|$)})
|
|
{
|
|
$major = $1;
|
|
}
|
|
elsif ($line =~ m{^#define\s+MODULE_MAGIC_NUMBER_MINOR\s+(\d+)(?:\s|$)})
|
|
{
|
|
$minor = $1;
|
|
}
|
|
}
|
|
close($fh);
|
|
}
|
|
else {
|
|
$skip = "Skip if can't read $filename";
|
|
}
|
|
|
|
skip($skip, $major, $cmajor);
|
|
skip($skip, $minor, $cminor);
|