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
|
#!perl
use strict;
use warnings;
use Test::Exception;
use Test::More tests => 7;
use Glib qw( TRUE FALSE );
use Gtk2::Notify;
my $app_name = 'test-suite';
is( Gtk2::Notify->is_initted, FALSE, 'not initted after loading' );
ok( Gtk2::Notify->init($app_name), 'init' );
is( Gtk2::Notify->is_initted, TRUE, 'now initted' );
is( Gtk2::Notify->get_app_name, $app_name, 'set/get app_name' );
lives_ok(sub { Gtk2::Notify->uninit; }, 'uninit');
SKIP: {
skip 'various reasons', 2;
lives_ok(sub { Gtk2::Notify->get_server_caps; }, 'get_server_caps');
my @server_info = Gtk2::Notify->get_server_info;
is( scalar @server_info, 4, 'get_server_info' );
}
|
