--- c.t	23 May 2008 09:49:02 +1000	1.12
+++ c.t	20 Jun 2008 18:12:47 +1000	
@@ -13,7 +13,7 @@
 
 #########################
 
-use Test::More tests => 32;
+use Test::More tests => 34;
 BEGIN { use_ok('Glib') };
 
 #########################
@@ -40,6 +40,16 @@
 eval { my $h = Glib::Flags->new (['readable']); };
 ok ($@, "Will croak on trying to create plain old Glib::Flags");
 
+{ $f = Glib::ParamFlags->new (['readable']); # with array
+  my $g = $f;
+  $g += 'writable';
+  ok ($g == ['readable', 'writable'],
+      "overloaded +=");
+  ok ($f == ['readable'],
+      "overloaded += leaves original unchanged");
+}
+
+
 #########################
 
 $@ = undef;