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
|
#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 5, noinit => 1;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkTreeSortable.t,v 1.1 2004/02/06 21:34:08 kaffeetisch Exp $
my $list = Gtk2::ListStore -> new("Glib::Int");
isa_ok($list, "Gtk2::TreeSortable");
my $tree = Gtk2::ListStore -> new("Glib::Int");
isa_ok($tree, "Gtk2::TreeSortable");
my $sort = Gtk2::TreeModelSort -> new_with_model($list);
isa_ok($sort, "Gtk2::TreeSortable");
$sort -> sort_column_changed();
$sort -> set_sort_column_id(0, "ascending");
is_deeply([$sort -> get_sort_column_id()], [0, "ascending"]);
$sort -> set_sort_func(0, sub { warn @_; }, 23);
$sort -> set_default_sort_func(sub { warn @_; }, 23);
is($sort -> has_default_sort_func(), 1);
__END__
Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
