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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
# -*- cperl -*-
use strict;
use warnings;
use Test::More;
use Config::AutoConf;
END
{
foreach my $f (<config*.*>)
{
-e $f and unlink $f;
}
}
## OK, we really hope people have sdtio.h around
Config::AutoConf->check_header("stdio.h") or plan skip_all => "No working compile environment";
ok(!Config::AutoConf->check_header("astupidheaderfile.h"));
is(Config::AutoConf->check_headers("astupidheaderfile.h", "stdio.h"), "stdio.h");
# check several headers at once
my $ac = Config::AutoConf->new(logfile => "config2.log");
eval { $ac->check_default_headers(); };
ok(!$@, "check_default_headers") or diag($@);
## we should find at least a stdio.h ...
note("Checking for cache value " . $ac->_cache_name("stdio.h"));
ok($ac->cache_val($ac->_cache_name("stdio.h")), "found stdio.h");
# some complex header tests for wide OS support
eval { $ac->check_dirent_header(); };
ok(!$@, "check_dirent_header") or diag($@);
# check predeclared symbol
# as we test a perl module, we expect perl.h available and suitable
my $include_perl = "#include <EXTERN.h>\n#include <perl.h>";
SKIP:
{
skip "Constants not defined on this Perl version", 2 if $] <= 5.01000;
ok $ac->check_decl("PERL_VERSION_STRING", {prologue => $include_perl}), "PERL_VERSION_STRING declared";
ok $ac->check_decls(
[qw(PERL_API_REVISION PERL_API_VERSION PERL_API_SUBVERSION)],
{prologue => $ac->_default_includes_with_perl}
),
"PERL_API_* declared";
}
ok $ac->check_decl("perl_parse(PerlInterpreter *, XSINIT_t , int , char** , char** )", {prologue => $include_perl}),
"perl_parse() declared";
SCOPE:
{
# test outside cache control
local $ENV{ac_cv_type_complete_useless_datatype} = 1;
ok $ac->check_type("complete_useless_datatype"), "External overwritten type test";
}
# check declared types
ok $ac->check_type("I32", {prologue => $include_perl}), "I32 is valid type";
ok $ac->check_types(["SV *", "AV *", "HV *"], {prologue => $include_perl}), "[SAH]V * are valid types";
# check size of perl types
my $typesize = $ac->check_sizeof_type("I32", {prologue => $include_perl});
ok $typesize, "I32 has size of " . ($typesize ? $typesize : "n/a") . " bytes";
ok $ac->check_sizeof_types(["I32", "SV *", "AV", "HV *", "SV.sv_refcnt"], {prologue => $include_perl}),
"Could determined sizes for I32, SV *, AV, HV *, SV.sv_refcnt";
my $compute = $ac->compute_int("-sizeof(I32)", {prologue => $include_perl});
cmp_ok($compute, "==", 0 - $typesize, "Compute (-sizeof(I32))");
# check perl data structure members
ok $ac->check_member("struct av.sv_any", {prologue => $include_perl}), "have struct av.sv_any member";
ok $ac->check_members(["struct hv.sv_any", "struct STRUCT_SV.sv_any"], {prologue => $include_perl}),
"have struct hv.sv_any and struct STRUCT_SV.sv_any members";
my $struct_in_struct_prlg = <<EOP;
struct S1 {
int i;
int j;
};
struct S2 {
struct S2 *next;
struct S1 s1;
};
EOP
ok $ac->check_member("struct S2.s1", {prologue => $struct_in_struct_prlg}), "have struct S2.s1 member";
# check aligning
ok $ac->check_alignof_type("I32", {prologue => $include_perl}), "Align of I32";
ok $ac->check_alignof_type("SV.sv_refcnt", {prologue => $include_perl}), "Align of SV.sv_refcnt";
ok $ac->check_alignof_types(["I32", "U32", "AV", "HV *", "SV.sv_refcnt"], {prologue => $include_perl}),
"Could determine the sizes of I32, U32, AV, HV *, SV.sv_refcnt";
#
# Let's take REGEXP structure members as of perlreapi to test check_members
#
my @members =
qw/jdd jdd2 engine mother_re extflags minlen minlenret gofs substrs nparens intflags pprivate lastparen lastcloseparen swap offs subbeg saved_copy sublen suboffset subcoffset prelen precomp wrapped wraplen seen_evals paren_names refcnt/;
ok(
$ac->check_members(
[map { "struct regexp.$_" } @members],
{
prologue => "#include \"EXTERN.h\"
#include \"perl.h\"
#include \"XSUB.h\""
}
),
"Check struct regexp"
);
Config::AutoConf->write_config_h();
ok(-f "config.h", "default config.h created");
my $fsize;
ok($fsize = (stat("config.h"))[7], "config.h contains content");
$ac->write_config_h();
ok(-f "config.h", "default config.h created");
cmp_ok((stat("config.h"))[7], ">", $fsize, "2nd config.h is bigger than first (more checks made)");
my ($fh, $fbuf, $dbuf);
open($fh, "<", "config.h");
{ local $/; $fbuf = <$fh>; }
close($fh);
if ($] < 5.008)
{
require IO::String;
$fh = IO::String->new($dbuf);
}
else
{
open($fh, "+>", \$dbuf);
}
$ac->write_config_h($fh);
close($fh);
$fh = undef;
cmp_ok($dbuf, "eq", $fbuf, "file and direct write computes equal");
like($dbuf, qr/COMPLETE_USELESS_DATATYPE/, "complete_useless_datatype in config.h even if injected");
TODO:
{
-f "META.yml" or $ENV{AUTOMATED_TESTING} = 1;
local $TODO = "Quick fix: TODO - analyse diag later" unless $ENV{AUTOMATED_TESTING};
my @old_logfh;
$dbuf = "";
if ($] < 5.008)
{
$fh = IO::String->new($dbuf);
}
else
{
open($fh, "+>", \$dbuf);
}
@old_logfh = @{$ac->{logfh}};
$ac->add_log_fh($fh);
cmp_ok(scalar @{$ac->{logfh}}, "==", 2, "Successfully added 2nd loghandle");
ok($ac->check_compile_perlapi(), "Could compile perl extensions") or diag($dbuf);
scalar @old_logfh and $ac->delete_log_fh($fh);
scalar @old_logfh and is_deeply(\@old_logfh, $ac->{logfh}, "add_log_fh/delete_log_fh");
defined $fh and close($fh);
$fh = undef;
}
SCOPE:
{
local $ENV{ac_cv_insane_h} = "/usr/include/insane.h";
my $insane_h = $ac->check_header("insane.h");
is($insane_h, $ENV{ac_cv_insane_h}, "Cache override for header files work");
}
done_testing;
|
