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
|
#########################
# Gnome2::GConf Tests
# - ebb
#########################
#########################
use strict;
use Gnome2::GConf;
use constant SKIP_1 => 7;
use constant SKIP_2 => 1;
use Test::More tests => SKIP_1 + SKIP_2 + 3;
my @version = Gnome2::GConf->GET_VERSION_INFO;
is( @version, 3, 'version is three items long' );
our $app_dir = '/apps/basic-gconf-app';
our $key_foo = 'foo';
my $foo_path = Gnome2::GConf->concat_dir_and_key($app_dir, $key_foo);
is( $foo_path, '/apps/basic-gconf-app/foo', 'valid foo key');
my $is_valid = Gnome2::GConf->valid_key($foo_path);
ok( $is_valid );
my $c = Gnome2::GConf::Client->get_default;
SKIP: {
skip("Couldn't connect to the GConf default client.", SKIP_1)
unless ($c);
skip("basic-gconf-app directory not found in GConf.", SKIP_1)
unless ($c->dir_exists('/apps/basic-gconf-app'));
our $client = Gnome2::GConf::Client->get_default;
isa_ok( $client, 'Gnome2::GConf::Client' );
$client->add_dir($app_dir, 'preload-recursive');
ok( 1 );
is( $client->get($foo_path)->{'type'}, 'string' );
ok( $client->get_string($foo_path) );
our $id = $client->notify_add($foo_path, sub { warn @_; });
ok( $id );
ok( $client->set_string($foo_path, 'test') );
$client->notify_remove($id);
ok( 1 );
}
my $e = Gnome2::GConf::Engine->get_default;
SKIP: {
skip("Couldn't connect to the GConf default engine.", SKIP_2)
unless ($e);
# we can not use an engine with a client attached - so we just test the
# ::get_default method.
our $engine = Gnome2::GConf::Engine->get_default;
isa_ok( $engine, 'Gnome2::GConf::Engine' );
}
#########################
|
