1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
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);
|
