From 1437630bbfa67877cb359cc292df05c27d9fbec0 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Thu, 26 Jun 2014 11:32:18 +0200 Subject: Forgotten test file --- t/04-Shared_TimeZone.t | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 t/04-Shared_TimeZone.t (limited to 't') diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t new file mode 100644 index 00000000..d0d08d2c --- /dev/null +++ b/t/04-Shared_TimeZone.t @@ -0,0 +1,20 @@ +#!perl -T +use 5.006; +use strict; +use warnings FATAL => 'all'; +use Test::More; + +BEGIN { + use_ok( 'AdminPanel::Shared::TimeZone' ) || print "AdminPanel::Shared::TimeZone failed!\n"; +} + + ok( my $tz = AdminPanel::Shared::TimeZone->new(), 'create'); + is( $tz->get_timezone_prefix(), '/usr/share/zoneinfo', 'get_timezone_prefix' ); + ok (my @l = $tz->getTimeZones(), 'getTimeZones'); + ok (my $h = $tz->readConfiguration(), 'readConfiguration'); + ok (my $s = $tz->ntpCurrentServer(), 'currentNTPServer'); + diag "ntpCurrentServer got: < " . ($s ? $s : "none") . " >"; + ok (my $a = ($tz->isNTPRunning() ? "not running" : "running"), 'isNTPRunning'); + diag "isNTPRunning got: < " . $a . " >"; + +done_testing; -- cgit v1.2.1