From 143675198e9c0fcef3335affa224c6b9799a9a6b Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Wed, 25 Mar 2015 12:36:24 +0100
Subject: fixed isNTPRunning and its test

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

(limited to 't')

diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t
index 21dd2e7..a88733b 100644
--- a/t/04-Shared_TimeZone.t
+++ b/t/04-Shared_TimeZone.t
@@ -16,10 +16,10 @@ BEGIN {
     diag Dumper($h);
     ok (my $currService = $tz->ntp_program(), 'ntp_program');
     diag "ntp_program got: < " . $currService . " >";
+    ok (my $a = ($tz->isNTPRunning() ? "running" : "not running"), 'isNTPRunning');
+    diag "Check if " . $currService . " is running got: < " . $a . " >";
     ok (my $s = $tz->ntpCurrentServer(), 'currentNTPServer');
     diag "ntpCurrentServer got: < " . ($s ? $s : "none") . " >";
-    ok (my $a = ($tz->isNTPRunning() ? "running" : "not running"), 'isNTPRunning');
-    diag "isNTPRunning got: < " . $a . " >";
     ok (my @pairs = $tz->ntpServiceConfigPairs(), 'ntpServiceConfigPairs');
     diag Dumper(@pairs);
     for my $pair (@pairs) {
-- 
cgit v1.2.1