Time-Available/t/test.t

#!/usr/bin/perl

use Test::Simple tests => 3;

use Time::Available qw(:days);

my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY );
ok( defined($i) , 'new() work');

ok( defined($i->{start}) && $i->{start} == 7*60*60, 'start time ok' );
ok( defined($i->{end}) && $i->{end} == ((17*60)+15)*60, 'end time ok' );

print $i->uptime(localtime),"\n";
1	dpavlin	1.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} == 76060, 'start time ok' );
11			ok( defined($i->{end}) && $i->{end} == ((1760)+15)60, 'end time ok' );
12
13			print $i->uptime(localtime),"\n";