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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkRecentManager.t,v 1.4 2006/07/12 09:36:49 ebassi Exp $
#
#########################
# GtkRecentManager Tests
# - ebassi
#########################
#########################
use strict;
use warnings;
use Gtk2::TestHelper tests => 36,
at_least_version => [2, 10, 0, "GtkRecentManager is new in 2.10"],
;
my $manager = Gtk2::RecentManager->get_default;
isa_ok($manager, 'Gtk2::RecentManager', 'get_default');
$manager = Gtk2::RecentManager->new;
isa_ok($manager, 'Gtk2::RecentManager', 'new');
$manager = Gtk2::RecentManager->get_for_screen(Gtk2::Gdk::Screen->get_default);
isa_ok($manager, 'Gtk2::RecentManager', 'get_for_screen');
$manager->set_screen(Gtk2::Gdk::Screen->get_default);
# tests should not change or modify the global recently used files
# list, so we use the 'filename' constructor only property of the
# GtkRecentManager object to create our own test storage file. this
# also gives us a better controlled environment. -- ebassi
unlink './test.xbel'; # in case of an aborted run
$manager = Glib::Object::new('Gtk2::RecentManager', filename => './test.xbel');
isa_ok($manager, 'Gtk2::RecentManager');
# use this silly trick to get a file
my $icon_theme = Gtk2::IconTheme->get_default;
my $icon_info = $icon_theme->lookup_icon('stock_edit', 24, 'use-builtin');
SKIP: {
skip "add_item; theme icon not found", 32
unless defined $icon_info;
my $icon_file = $icon_info->get_filename;
my $icon_uri = 'file://' . $icon_file;
$manager->add_item($icon_uri);
ok($manager->has_item($icon_uri), 'check add item');
$manager->move_item($icon_uri, $icon_uri . '.bak');
$manager->move_item($icon_uri . '.bak', $icon_uri,);
$manager->set_limit(23);
is ($manager->get_limit, 23, 'limit');
sleep(1); # gross hack to allow the timestamp to be different
$manager->add_full($icon_uri, {
display_name => 'Stock edit',
description => 'GTK+ stock icon for edit',
mime_type => 'image/png',
app_name => 'Eog',
app_exec => 'eog %u',
is_private => 1,
groups => ['Group I', 'Group II'],
});
ok($manager->has_item($icon_uri), 'check add full');
my $recent_info = $manager->lookup_item($icon_uri);
isa_ok($recent_info, 'Gtk2::RecentInfo', 'check recent_info');
is($recent_info->get_uri, $icon_uri, 'check URI' );
is($recent_info->get_display_name, 'Stock edit', 'check name');
is($recent_info->get_description, 'GTK+ stock icon for edit', 'check description');
is($recent_info->get_mime_type, 'image/png', 'check MIME');
is($recent_info->get_short_name, 'stock_edit.png', 'check short name');
ok(defined $recent_info->get_uri_display, 'check display uri');
ok(defined $recent_info->get_age, 'check age');
ok($recent_info->is_local, 'check local');
ok($recent_info->exists, 'check exists');
ok($recent_info->match($recent_info), 'check match');
ok(defined $recent_info->get_added, 'check added stamp');
ok($recent_info->has_application('Eog'), 'check app/1');
ok(!$recent_info->has_application('Dummy Test'), 'check app/2');
ok($recent_info->is_local, 'check is local');
is($recent_info->last_application, 'Eog', 'check last application');
my @app_info = $recent_info->get_application_info('Eog');
is(@app_info, 3, 'check app info');
my ($exec, $count, $stamp) = @app_info;
is($exec, 'eog ' . $icon_uri, 'check exec' );
is($count, 1, 'check count');
is($stamp, $recent_info->get_modified, 'check stamp');
my @apps = $recent_info->get_applications;
is(scalar @apps, 2, 'check applications'); # $0 + 'Eog'
is_deeply([$recent_info->get_groups], ['Group I', 'Group II'], 'check groups/1');
ok($recent_info->has_group('Group I'), 'check groups/2');
isa_ok($recent_info->get_icon('24'), 'Gtk2::Gdk::Pixbuf');
is($recent_info->get_private_hint, 1, 'check is private');
my @items = $manager->get_items;
is(@items, 1, 'check get_items');
is($items[0]->get_uri, $icon_uri);
$manager->remove_item($icon_uri);
ok(!$manager->has_item($icon_uri), 'check remove item');
is($manager->purge_items, 0, 'check purge items');
unlink './test.xbel' or
die "Unable to remove the test storage file";
}
__END__
Copyright (C) 2006 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
