[libchamplain] Fix the test for tile->get_modified_time()

[Pierre-Luc Beaudoin <plbeaudoin src gnome org>]

commit 7cfe6919e4e5f7b71664050c19382464f65a7efd
Author: Emmanuel Rodriguez <emmanuel rodriguez gmail com>
Date:   Sat Jul 11 21:08:07 2009 +0200

    Fix the test for tile->get_modified_time()

 bindings/perl/Champlain/t/ChamplainTile.t |   11 +++++------
 1 files changed, 5 insertions(+), 6 deletions(-)
---
diff --git a/bindings/perl/Champlain/t/ChamplainTile.t b/bindings/perl/Champlain/t/ChamplainTile.t
index 632bbe7..28e69b3 100644
--- a/bindings/perl/Champlain/t/ChamplainTile.t
+++ b/bindings/perl/Champlain/t/ChamplainTile.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Clutter::TestHelper tests => 50;
+use Clutter::TestHelper tests => 54;
 
 use Champlain ':coords';
 use Data::Dumper;
@@ -101,11 +101,10 @@ sub test_all_setters {
 
 	# Set the time to now
 	$tile->set_modified_time();
-	is_deeply(
-		[$tile->get_modified_time()],
-		[],
-		"set_modified_time()"
-	);
+	my @time = $tile->get_modified_time();
+	is(scalar(@time), 2, "Got seconds and microseconds");
+	ok(defined $time[0], "Seconds are defined");
+	ok(defined $time[1], "Microseconds are defined");
 	
 	# The epoch
 	$tile->set_modified_time(0, 0);