diff options
Diffstat (limited to 't')
-rw-r--r-- | t/04-Shared_TimeZone.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index 0bd007d6..8f82786e 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 |