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
|
use Test::More;
use Gtk3;
if (!Gtk3::init_check ()) {
plan skip_all => 'Gtk3::init_check failed';
}
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);
}
sub on_unthreaded_freebsd {
if ($^O eq 'freebsd') {
require Config;
if ($Config::Config{ldflags} !~ m/-pthread\b/) {
return 1;
}
}
return 0;
}
use File::Temp qw{tempdir};
$ENV{HOME} = tempdir(CLEANUP => 1);
1;
|
