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 632bbe72519a9ac7660617cb6a37ee2ab30d6c7f..28e69b3876a9d3c745724bc0157d37a949527b91 100644 (file)
--- 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);