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);