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	#!/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";