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 Glib::Object::Introspection;
use Test::More;
unless (-e 'build/libregress.so' && -e 'build/libgimarshallingtests.so') {
plan skip_all => 'Need the test libraries';
}
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');
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');
}
1;
|
