From 4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Wed, 25 Mar 2015 17:09:25 +0100
Subject: better order in test case

---
 t/04-Shared_TimeZone.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 't')

diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t
index a88733be..c96165a4 100644
--- a/t/04-Shared_TimeZone.t
+++ b/t/04-Shared_TimeZone.t
@@ -14,6 +14,11 @@ BEGIN {
     ok (my @l = $tz->getTimeZones(), 'getTimeZones');
     ok (my $h = $tz->readConfiguration(), 'readConfiguration');
     diag Dumper($h);
+    ok (my $services = $tz->ntpServiceList(), 'ntpServiceList');
+    diag Dumper($services);
+    ok ($tz->refreshNTPServiceList(), 'refreshNTPServiceList');
+    ok ($services = $tz->ntpServiceList(), 'ntpServiceList after refresh');
+    diag Dumper($services);
     ok (my $currService = $tz->ntp_program(), 'ntp_program');
     diag "ntp_program got: < " . $currService . " >";
     ok (my $a = ($tz->isNTPRunning() ? "running" : "not running"), 'isNTPRunning');
@@ -25,11 +30,6 @@ BEGIN {
     for my $pair (@pairs) {
         is ($tz->getNTPServiceConfig($pair->[0]), $pair->[1], "ntpServiceConfigPairs $pair->[0]");
     }
-    ok (my $services = $tz->ntpServiceList(), 'ntpServiceList');
-    diag Dumper($services);
-    ok ($tz->refreshNTPServiceList(), 'refreshNTPServiceList');
-    ok ($services = $tz->ntpServiceList(), 'ntpServiceList after refresh');
-    diag Dumper($services);
 
     SKIP: {
         #remember to skip the right number of tests
-- 
cgit v1.2.1