--- GtkTreeModelFilter.t	18 Jun 2006 23:39:53 +1000	1.8
+++ GtkTreeModelFilter.t	03 May 2008 07:40:14 +1000	
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use Gtk2::TestHelper
-  tests => 24,
+  tests => 26,
   noinit => 1,
   at_least_version => [2, 4, 0, "GtkTreeModelFilter is new in 2.4"];
 
@@ -53,6 +53,27 @@
 $filter -> refilter();
 $filter -> clear_cache();
 
+$filter = Gtk2::TreeModelFilter -> new($list, undef);
+$filter -> set_modify_func
+  (["Glib::Int", "Glib::String"],
+   sub { my ($filter, $iter, $col, $userdata) = @_;
+         my $path = $filter->get_path ($iter);
+         if ($col == 0) {
+           my ($pos) = $path->get_indices;
+           return $pos * 100 + $col;
+         }
+         if ($col == 1) {
+           return "column $col userdata $userdata path "
+             . $path->to_string;
+         }
+       }, 12345);
+
+is ($filter->get_value($filter->iter_nth_child(undef,2), 0),
+    200);
+is ($filter->get_value($filter->get_iter_first, 1),
+    'column 1 userdata 12345 path 0');
+
+
 $filter = Gtk2::TreeModelFilter -> new($list, Gtk2::TreePath -> new_from_string("1"));
 isa_ok($filter, "Gtk2::TreeModelFilter");