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
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
#!/usr/bin/perl
use strict;
use warnings;
use XML::XPath;
use Test::More;
unless ($ENV{TEST_MAINTAINER}) {
plan skip_all => "Test only for module maintainer. Set TEST_MAINTAINER=1 to run";
}
my $apifile = `pkg-config --variable=libvirt_api libvirt`;
chomp $apifile;
open API, "<", $apifile or die "cannot read $apifile: $!";
my $xml;
{
local $/ = undef;
$xml = <API>;
};
close API;
my $count = 0;
my $xp = XML::XPath->new($xml);
my @enums;
my @functions;
my @macros;
my $set = $xp->find('/api/files/file/exports[@type="function"]/@symbol');
foreach my $n ($set->get_nodelist) {
$count++;
push @functions, $n->getData();
}
$set = $xp->find('/api/files/file/exports[@type="enum"]/@symbol');
foreach my $n ($set->get_nodelist) {
$count++;
push @enums, $n->getData();
}
$set = $xp->find('/api/files/file/exports[@type="macro"]/@symbol');
foreach my $n ($set->get_nodelist) {
$count++;
push @macros, $n->getData();
}
open XS, "<lib/Sys/Virt.xs" or die "cannot read lib/Sys/Virt.xs: $!";
my $xs;
{
local $/ = undef;
$xs = <XS>
}
close XS;
my @blacklist = qw(
virConnCopyLastError
virConnGetLastError
virConnResetLastError
virConnSetErrorFunc
virCopyLastError
virDefaultErrorFunc
virErrorFunc
virFreeError
virResetLastError
virSaveLastError
virGetLastErrorMessage
virGetLastErrorCode
virGetLastErrorDomain
virConnectAuthCallbackPtr
virConnectOpen
virConnectOpenReadOnly
virConnectDomainEventBlockJobCallback
virConnectDomainEventCallback
virConnectDomainEventDiskChangeCallback
virConnectDomainEventGraphicsCallback
virConnectDomainEventIOErrorCallback
virConnectDomainEventIOErrorReasonCallback
virConnectDomainEventRTCChangeCallback
virConnectDomainEventWatchdogCallback
virConnectDomainEventPMSuspendCallback
virConnectDomainEventPMSuspendDiskCallback
virConnectDomainEventPMWakeupCallback
virConnectDomainEventTrayChangeCallback
virConnectDomainEventBalloonChangeCallback
virConnectDomainEventDeviceAddedCallback
virConnectDomainEventDeviceRemovedCallback
virConnectDomainEventTunableCallback
virConnectDomainEventAgentLifecycleCallback
virConnectDomainEventMigrationIterationCallback
virConnectDomainEventJobCompletedCallback
virConnectDomainEventDeviceRemovalFailedCallback
virConnectDomainEventMetadataChangeCallback
virConnectDomainEventBlockThresholdCallback
virConnectDomainEventMemoryFailureCallback
virConnectDomainEventMemoryDeviceSizeChangeCallback
virConnectDomainEventNICMACChangeCallback
virConnectNetworkEventLifecycleCallback
virConnectNetworkEventMetadataChangeCallback
virConnectStoragePoolEventLifecycleCallback
virConnectNodeDeviceEventLifecycleCallback
virConnectSecretEventLifecycleCallback
virEventAddHandleFunc
virEventAddTimeoutFunc
virEventRemoveHandleFunc
virEventRemoveTimeoutFunc
virEventUpdateHandleFunc
virEventUpdateTimeoutFunc
virStreamEventCallback
virStreamSinkFunc
virStreamSinkHoleFunc
virStreamSourceFunc
virStreamSourceHoleFunc
virStreamSourceSkipFunc
virConnectCloseFunc
virDomainMigrate
virDomainMigrate2
virDomainMigrateToURI
virDomainMigrateToURI2
virTypedParamsAddBoolean
virTypedParamsAddDouble
virTypedParamsAddFromString
virTypedParamsAddInt
virTypedParamsAddLLong
virTypedParamsAddString
virTypedParamsAddStringList
virTypedParamsAddUInt
virTypedParamsAddULLong
virTypedParamsClear
virTypedParamsFree
virTypedParamsGet
virTypedParamsGetBoolean
virTypedParamsGetDouble
virTypedParamsGetInt
virTypedParamsGetLLong
virTypedParamsGetString
virTypedParamsGetUInt
virTypedParamsGetULLong
virNetworkDHCPLeaseFree
);
foreach my $func (sort { $a cmp $b } @functions) {
if ($func =~ /(GetConnect|Ref|GetDomain|GetNetwork)$/ ||
grep {/$func/ } @blacklist) {
ok(1, $func);
next;
}
ok($xs =~ /\b$func\b/, $func);
}
foreach my $enum (sort { $a cmp $b } @enums) {
if ($enum =~ /_LAST$/ ||
$enum =~ /VIR_(TYPED_PARAM|DOMAIN_MEMORY_PARAM|DOMAIN_SCHED_FIELD|DOMAIN_BLKIO_PARAM)_(STRING|STRING_OKAY|BOOLEAN|DOUBLE|INT|LLONG|UINT|ULLONG)/ ||
$enum eq "VIR_CPU_COMPARE_ERROR" ||
$enum eq "VIR_DOMAIN_NONE" ||
$enum eq "VIR_DOMAIN_MEMORY_STAT_NR") {
ok(1, $enum);
next;
}
ok($xs =~ /REGISTER_CONSTANT(_STR)?\($enum,/, $enum);
}
@blacklist = qw(
LIBVIR_VERSION_NUMBER
VIR_COPY_CPUMAP
VIR_CPU_MAPLEN
VIR_CPU_USABLE
VIR_CPU_USED
VIR_DOMAIN_BLKIO_FIELD_LENGTH
VIR_DOMAIN_BLOCK_STATS_FIELD_LENGTH
VIR_DOMAIN_EVENT_CALLBACK
VIR_NETWORK_EVENT_CALLBACK
VIR_STORAGE_POOL_EVENT_CALLBACK
VIR_NODE_DEVICE_EVENT_CALLBACK
VIR_SECRET_EVENT_CALLBACK
VIR_DOMAIN_MEMORY_FIELD_LENGTH
VIR_DOMAIN_MEMORY_PARAM_UNLIMITED
VIR_DOMAIN_SCHED_FIELD_LENGTH
VIR_GET_CPUMAP
VIR_NODEINFO_MAXCPUS
VIR_NODE_CPU_STATS_FIELD_LENGTH
VIR_NODE_MEMORY_STATS_FIELD_LENGTH
VIR_SECURITY_DOI_BUFLEN
VIR_SECURITY_LABEL_BUFLEN
VIR_SECURITY_MODEL_BUFLEN
VIR_TYPED_PARAM_FIELD_LENGTH
VIR_UNUSE_CPU
VIR_USE_CPU
VIR_UUID_BUFLEN
VIR_UUID_STRING_BUFLEN
_virBlkioParameter
_virMemoryParameter
_virSchedParameter
LIBVIR_CHECK_VERSION
);
foreach my $macro (sort { $a cmp $b } @macros) {
if (grep {/$macro/} @blacklist) {
ok(1, $macro);
next;
}
ok($xs =~ /REGISTER_CONSTANT(_STR)?\($macro,/, $macro);
}
done_testing($count);
|
