diff --git a/t/GdkRegion.t b/t/GdkRegion.t
index 8120441..3cdd0d4 100644
--- a/t/GdkRegion.t
+++ b/t/GdkRegion.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 23, noinit => 1;
+use Gtk2::TestHelper tests => 27, noinit => 1;
 
 # $Id$
 
@@ -10,6 +10,19 @@ my $rectangle_two = Gtk2::Gdk::Rectangle -> new(23, 42, 15, 15);
 isa_ok($rectangle_one -> intersect($rectangle_two), "Gtk2::Gdk::Rectangle");
 isa_ok($rectangle_one -> union($rectangle_two), "Gtk2::Gdk::Rectangle");
 
+{
+  my $pspec = Glib::ParamSpec->boxed ('bb','bb','blurb',
+				      'Gtk2::Gdk::Rectangle',
+				      Glib::G_PARAM_READWRITE);
+  my $rect = Gtk2::Gdk::Rectangle->new (1,2,3,4);
+  my ($flag, $new) = $pspec->value_validate($rect);
+  ok (! $flag, 'value_validate() rectangle unchanged');
+  is ($new->x, 1, );
+  is ($new->y, 2);
+  is ($new->width, 3);
+  is ($new->height, 4);
+}
+
 my $region = Gtk2::Gdk::Region -> new();
 isa_ok($region, "Gtk2::Gdk::Region");
 ok($region -> empty());
@@ -72,5 +85,5 @@ SKIP: {
 
 __END__
 
-Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the
+Copyright (C) 2003, 2010 by the gtk2-perl team (see the file AUTHORS for the
 full list).  See LICENSE for more information.
