--- GdkProperty.t	27 Apr 2008 09:53:13 +1000	1.8
+++ GdkProperty.t	18 May 2008 11:19:23 +1000	
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use Gtk2::TestHelper tests => 46;
+use Gtk2::TestHelper tests => 49;
 
 # $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GdkProperty.t,v 1.8 2008/03/30 19:31:10 kaffeetisch Exp $
 
@@ -19,6 +19,15 @@
   isa_ok($_, "Gtk2::Gdk::Atom");
 }
 
+{
+  my $h1 = Gtk2::Gdk::Atom->intern("hello");
+  my $h2 = Gtk2::Gdk::Atom->intern("hello");
+  my $w = Gtk2::Gdk::Atom->intern("world");
+  ok ($h1 == $h2);
+  ok ($h1 != $w);
+  ok (! ($h1 != $h2));
+}
+
 is($name -> name(), "WM_NAME");
 is($icon_name -> name(), "WM_ICON_NAME");
 is($strut -> name(), "_NET_WM_STRUT");