--- GtkTreeModel.t	19 Sep 2005 01:07:22 +1000	1.6
+++ GtkTreeModel.t	23 Jul 2008 14:20:57 +1000	
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 73, noinit => 1;
+use Gtk2::TestHelper tests => 75, noinit => 1;
 
 # $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkTreeModel.t,v 1.6 2005/09/18 15:07:22 kaffeetisch Exp $
 
@@ -174,6 +174,26 @@
 	is($model -> get_string_from_iter($iter), "0");
 }
 
+{ my $myvar;
+  my $stamp = 123;
+  $iter = $model->get_iter_first;
+  my $aref = [$stamp, 456, undef, \$myvar];
+  $iter->set ($aref);
+  is_deeply ($iter->to_arrayref($stamp), $aref,
+             'iter->set() from an array');
+}
+{ my $myvar;
+  my $stamp = 123;
+  $iter = Gtk2::TreeIter->new_from_arrayref ([$stamp, 999, \$stamp, undef]);
+  my $aref = [$stamp, 456, undef, \$myvar];
+  my $other = Gtk2::TreeIter->new_from_arrayref ($aref);
+  $iter->set ($other);
+  is_deeply ($iter->to_arrayref($stamp), $other->to_arrayref($stamp),
+             'iter->set() from another iter');
+}
+
+
+
 ###############################################################################
 
 my ($iter_one, $iter_two);