From 19cc50169058c43f67c78e81bb153a4581df2b3a Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Wed, 25 Mar 2015 10:05:10 +0100 Subject: Tested ntpServiceConfig --- t/04-Shared_TimeZone.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index 0bd007d..8f82786 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -18,6 +18,11 @@ BEGIN { 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) { + is ($tz->getNTPServiceConfig($pair->[0]), $pair->[1], "ntpServiceConfigPairs $pair->[0]"); + } SKIP: { #remember to skip the right number of tests -- cgit v1.2.1