/[Time-Available]/t/test.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/test.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Fri Oct 3 16:40:02 2003 UTC revision 1.6 by dpavlin, Sun Oct 5 22:26:59 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::Simple tests => 10;  use Test::Simple tests => 6;
4    
5  use Time::Available qw(:days :fmt_interval);  use Time::Available qw(:days :fmt_interval);
6    
7  my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY, DEBUG=>1 );  my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY);
8  ok( defined($i) , 'new() work');  ok( defined($i) , 'new() work');
9    
10  ok( defined($i->{start}) && $i->{start} == 7*60*60, 'start time ok' );  ok( defined($i->{start}) && $i->{start} == 7*60*60, 'start time ok' );
# Line 26  ok( fmt_interval($t) eq '1d 11:11:11', ' Line 26  ok( fmt_interval($t) eq '1d 11:11:11', '
26    
27  # test this timespan (07:00-17:15) with above values  # test this timespan (07:00-17:15) with above values
28    
29  ok($i->uptime(20000)==36900,'ok');  #ok($i->uptime(20000)==36900,'ok');
30  ok($i->uptime(30000)==28500,'ok');  #ok($i->uptime(30000)==28500,'ok');
31  ok($i->uptime(50000)==8500,'ok');  #ok($i->uptime(50000)==8500,'ok');
32  ok($i->uptime(60000)==0,'ok');  #ok($i->uptime(60000)==0,'ok');
   
 undef $i;  
33    
34  # create and test timespan which spans over midnight  # create and test timespan which spans over midnight
35    
36  $i = Time::Available->new( start=>'17:15', end=>'07:00', dayMask=>DAY_TUESDAY);  $i = Time::Available->new( start=>'17:15', end=>'07:00', dayMask=>DAY_THURSDAY);
37  ok( defined($i->{start}) && $i->{start} == ((17*60)+15)*60, 'end time ok' );  ok( defined($i->{start}) && $i->{start} == ((17*60)+15)*60, 'end time ok' );
38  ok( defined($i->{end}) && $i->{end} == 7*60*60, 'start time ok' );  ok( defined($i->{end}) && $i->{end} == 7*60*60, 'start time ok' );
39    
40  $t=time();print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";  #ok($i->uptime(20000)==25900,'ok');
41  $t=20000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";  #ok($i->uptime(30000)==24300,'ok');
42  $t=30000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";  #ok($i->uptime(50000)==24300,'ok');
43  $t=50000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";  #ok($i->uptime(60000)==22800,'ok');
44  $t=60000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";  
45    #$t=time();$u=$i->uptime($t);print STDERR " uptime ( $t $u ) ",scalar localtime $t,": ",fmt_interval($u)," ($u)\n";
46    
47    
48    $i = Time::Available->new( start=>'07:00', end=>'17:00', dayMask=>DAY_WEEKDAY, DEBUG=>1);
49    
50    print STDERR "\n",$i->interval(100000,500001),"\n\n";
51    print STDERR "\n",$i->interval(200100000,200500001),"\n\n";
52    print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n";
53    print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n";
54    #print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n";
55    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.26