--- GtkTreeModelIface.t	23 May 2008 09:50:57 +1000	1.6
+++ GtkTreeModelIface.t	07 Jul 2008 10:02:57 +1000	
@@ -346,7 +346,7 @@
 
 package main;
 
-use Gtk2::TestHelper tests => 166, noinit => 1;
+use Gtk2::TestHelper tests => 174, noinit => 1;
 use strict;
 use warnings;
 
@@ -393,6 +393,24 @@
 $model->ref_node ($iter);
 $model->unref_node ($iter);
 
+{ my $signal_finished = 0;
+  my $len = @{$model->{data}};
+  my @array = (0 .. $len-1);
+  my $id = $model->signal_connect (rows_reordered => sub {
+                                     my ($s_model, $path, $iter, $aref) = @_;
+                                     is ($s_model, $model);
+                                     isa_ok ($path, "Gtk2::TreePath");
+                                     my @indices = $path->get_indices;
+                                     is_deeply (\ indices, []);
+                                     is ($iter, undef);
+                                     is_deeply ($aref, \ array);
+                                     $signal_finished = 1;
+                                   });
+  $model->rows_reordered (Gtk2::TreePath->new, undef, @array);
+  ok ($signal_finished, 'rows-reordered signal ran');
+  $model->signal_handler_disconnect ($id);
+}
+
 my $sorter_two = sub {
 	my ($list, $a, $b, $data) = @_;