--- GdkRegion.t	04 Feb 2004 09:27:20 +1100	1.5
+++ GdkRegion.t	13 Jan 2008 07:28:28 +1100	
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 21, noinit => 1;
+use Gtk2::TestHelper tests => 22, noinit => 1;
 
 # $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkRegion.t,v 1.5 2004/02/03 22:27:20 kaffeetisch Exp $
 
@@ -26,7 +26,14 @@
 
 $region = Gtk2::Gdk::Region -> rectangle($rectangle_one);
 isa_ok($region, "Gtk2::Gdk::Region");
+
 isa_ok($region -> get_clipbox(), "Gtk2::Gdk::Rectangle");
+{ my $empty = Gtk2::Gdk::Region->new;
+  ok (eq_array ([$empty->get_clipbox->values],
+                [0, 0, 0, 0],
+                '$empty->clipbox'));
+}
+
 isa_ok(($region -> get_rectangles())[0], "Gtk2::Gdk::Rectangle");
 ok($region -> equal($region));
 ok($region -> point_in(30, 50));