Parent Directory | Revision Log
Initial revision
1 | #!/usr/bin/perl |
2 | |
3 | use Test::Simple tests => 3; |
4 | |
5 | use Time::Available qw(:days); |
6 | |
7 | my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY ); |
8 | ok( defined($i) , 'new() work'); |
9 | |
10 | ok( defined($i->{start}) && $i->{start} == 7*60*60, 'start time ok' ); |
11 | ok( defined($i->{end}) && $i->{end} == ((17*60)+15)*60, 'end time ok' ); |
12 | |
13 | print $i->uptime(localtime),"\n"; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |