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
|
use Config;
use Glib::Object::Introspection;
use Test::More;
my $lib_ext;
if ( $^O =~ /darwin/ ) {
$lib_ext = $Config{so};
} else {
$lib_ext = $Config{dlext};
}
unless (-e qq(build/libregress.$lib_ext) &&
-e qq(build/libgimarshallingtests.$lib_ext))
{
plan skip_all => 'Need the test libraries';
}
if ($^O eq 'MSWin32') {
unless (defined $ENV{PATH} &&
$ENV{PATH} =~ m/\bbuild\b/)
{
plan skip_all => 'Need "build" in PATH';
}
}
else {
unless (defined $ENV{LD_LIBRARY_PATH} &&
$ENV{LD_LIBRARY_PATH} =~ m/\bbuild\b/)
{
plan skip_all => 'Need "build" in LD_LIBRARY_PATH';
}
}
Glib::Object::Introspection->setup(
basename => 'Regress',
version => '1.0',
package => 'Regress',
search_path => 'build',
use_generic_signal_marshaller_for => [
['Regress::TestObj', 'sig-with-array-len-prop'],
]);
Glib::Object::Introspection->setup(
basename => 'GIMarshallingTests',
version => '1.0',
package => 'GI',
search_path => 'build');
# Inspired by Test::Number::Delta
sub delta_ok ($$;$) {
my ($a, $b, $msg) = @_;
ok (abs ($a - $b) < 1e-6, $msg);
}
sub check_gi_version {
my ($x, $y, $z) = @_;
#return !system ('pkg-config', "--atleast-version=$x.$y.$z", 'gobject-introspection-1.0');
return Glib::Object::Introspection->CHECK_VERSION ($x, $y, $z);
}
1;
|
