From 7cfe6919e4e5f7b71664050c19382464f65a7efd Mon Sep 17 00:00:00 2001 From: Emmanuel Rodriguez Date: Sat, 11 Jul 2009 21:08:07 +0200 Subject: [PATCH] Fix the test for tile->get_modified_time() --- bindings/perl/Champlain/t/ChamplainTile.t | 11 +++++------ 1 file 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); -- 2.39.5