From: Emmanuel Rodriguez <emmanuel.rodriguez@gmail.com>
Date: Sat, 11 Jul 2009 19:08:07 +0000 (+0200)
Subject: Fix the test for tile->get_modified_time()
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cfe6919e4e5f7b71664050c19382464f65a7efd;p=libchamplain

Fix the test for tile->get_modified_time()
---

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);