--- t/test.t 2003/10/04 18:41:37 1.4 +++ t/test.t 2003/10/05 20:55:21 1.5 @@ -44,3 +44,11 @@ #$t=time();$u=$i->uptime($t);print STDERR " uptime ( $t $u ) ",scalar localtime $t,": ",fmt_interval($u)," ($u)\n"; + +$i = Time::Available->new( start=>'07:00', end=>'17:00', dayMask=>DAY_WEEKDAY, DEBUG=>1); + +print STDERR "\n",$i->interval(100000,500001),"\n\n"; +print STDERR "\n",$i->interval(200100000,200500001),"\n\n"; +print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n"; +print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n"; +