aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/04-Shared_TimeZone.t10
1 files changed, 5 insertions, 5 deletions
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