diff options
| author | Angelo Naselli <anaselli@linux.it> | 2014-06-26 11:32:18 +0200 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2014-06-26 11:32:18 +0200 |
| commit | 1437630bbfa67877cb359cc292df05c27d9fbec0 (patch) | |
| tree | 54dbf2316695bddc4317af07e10bac0a9783dd85 /t/04-Shared_TimeZone.t | |
| parent | e55b344a4b541d1c6d3f4a7589d37defc4a8efb2 (diff) | |
| download | manatools-1437630bbfa67877cb359cc292df05c27d9fbec0.tar manatools-1437630bbfa67877cb359cc292df05c27d9fbec0.tar.gz manatools-1437630bbfa67877cb359cc292df05c27d9fbec0.tar.bz2 manatools-1437630bbfa67877cb359cc292df05c27d9fbec0.tar.xz manatools-1437630bbfa67877cb359cc292df05c27d9fbec0.zip | |
Forgotten test file
Diffstat (limited to 't/04-Shared_TimeZone.t')
| -rw-r--r-- | t/04-Shared_TimeZone.t | 20 |
1 files changed, 20 insertions, 0 deletions
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; |