diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/04-Shared_TimeZone.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index c96165a4..8a3578f7 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -23,8 +23,8 @@ BEGIN { 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 @s = $tz->ntpCurrentServers(), 'currentNTPServers'); + diag "ntpCurrentServers got: < " . join(',', @s) . " >"; ok (my @pairs = $tz->ntpServiceConfigPairs(), 'ntpServiceConfigPairs'); diag Dumper(@pairs); for my $pair (@pairs) { |