File: src.t

package info (click to toggle)
libapache-mod-perl 1.16-2
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,580 kB
  • ctags: 1,064
  • sloc: ansic: 4,489; perl: 4,415; sh: 305; makefile: 137
file content (37 lines) | stat: -rw-r--r-- 588 bytes parent folder | download | duplicates (3) 
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
 
use ExtUtils::testlib;

use Apache::test;
use Apache::src;

my $i = 0;

skip_test if WIN32;

print "1..6\n";

my $src = Apache::src->new;

test ++$i, $src;

print "dir=", $src->dir, "\n";
test ++$i, -d $src->dir;

print "main=", $src->main, "\n";
test ++$i, -e join("/", $src->main, "httpd.h");

my $mmn = $src->module_magic_number;
print "module_magic_number = $mmn\n";
test ++$i, $mmn;

my $v = $src->httpd_version;
print "httpd_version = $v\n";
test ++$i, $v;

print $src->inc, "\n";

for (split /\s+/, $src->inc) {
    s/^-I//;
    -d $_ or die "can't stat $_ $!\n";
}

test ++$i, 1;