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
|
#
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkFileFilter.t,v 1.5 2005/01/30 02:17:29 muppetman Exp $
#
use Gtk2::TestHelper
at_least_version => [2, 4, 0, "GtkFileChooser is new in 2.4"],
tests => 4, noinit => 1;
my $filter_info = {
contains => ['display-name'],
#filename => '',
#uri => '',
display_name => 'Frobnicated files',
mime_type => 'text/html',
};
#$filter_info->{contains}
#$filter_info->{filename}
#$filter_info->{uri}
#$filter_info->{display_name}
#$filter_info->{mime_type}
sub filter_func {
my ($info, $data) = @_;
isa_ok ($info, 'HASH');
return TRUE;
}
my $file_filter = Gtk2::FileFilter->new;
isa_ok ($file_filter, 'Gtk2::FileFilter');
$file_filter->set_name ('fred');
is ($file_filter->get_name, 'fred');
$file_filter->add_mime_type ('text/plain');
$file_filter->add_pattern ('*.pl');
$file_filter->add_custom (['filename', 'mime-type'], \&filter_func);
ok ($file_filter->get_needed >= ['filename', 'mime-type']);
ok (!$file_filter->filter ($filter_info));
SKIP: {
skip 'add_pixbuf_formats is new in 2.6', 0
unless Gtk2->CHECK_VERSION (2, 6, 0);
$file_filter->add_pixbuf_formats;
}
__END__
Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
