perl-Glib r1097 - in branches/stable-1-20: . t

[tsch svn gnome org]

Author: tsch
Date: Wed Feb 18 16:20:44 2009
New Revision: 1097
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1097&view=rev

Log:
Merge r1095-1096 from trunk.


Modified:
   branches/stable-1-20/   (props changed)
   branches/stable-1-20/ChangeLog
   branches/stable-1-20/GBookmarkFile.xs
   branches/stable-1-20/t/h.t

Modified: branches/stable-1-20/GBookmarkFile.xs
==============================================================================
--- branches/stable-1-20/GBookmarkFile.xs	(original)
+++ branches/stable-1-20/GBookmarkFile.xs	Wed Feb 18 16:20:44 2009
@@ -689,17 +689,17 @@
     OUTPUT:
         RETVAL
 
-=for apidoc Glib::BookmarkFile::set_added __function__
+=for apidoc Glib::BookmarkFile::set_added
 Sets the time the bookmark for $uri was added.
 If no bookmark for $uri is found one is created.
 =cut
 
-=for apidoc Glib::BookmarkFile::set_modified __function__
+=for apidoc Glib::BookmarkFile::set_modified
 Sets the time the bookmark for $uri was last modified.
 If no bookmark for $uri is found one is created.
 =cut
 
-=for apidoc Glib::BookmarkFile::set_visited __function__
+=for apidoc Glib::BookmarkFile::set_visited
 Sets the time the bookmark for $uri was last visited.
 If no bookmark for $uri is found one is created.
 =cut

Modified: branches/stable-1-20/t/h.t
==============================================================================
--- branches/stable-1-20/t/h.t	(original)
+++ branches/stable-1-20/t/h.t	Wed Feb 18 16:20:44 2009
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 use Glib ':constants';
-use Test::More tests => 27;
+use Test::More tests => 30;
 
 our $str = <<__EOB__
 <?xml version="1.0" encoding="UTF-8"?>
@@ -122,6 +122,15 @@
 
 	$bookmark_file->remove_item($uris[0]);
 	is ($bookmark_file->get_size, 0, 'check_remove_item');
+
+	$bookmark_file->set_added($uri, $now);
+	is ($bookmark_file->get_added($uri), $now, 'check added accessors');
+
+	$bookmark_file->set_modified($uri, $now);
+	is ($bookmark_file->get_modified($uri), $now, 'check modified accessors');
+
+	$bookmark_file->set_visited($uri, $now);
+	is ($bookmark_file->get_visited($uri), $now, 'check visited accessors');
 }
 
 __END__