/[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.7 by dpavlin, Mon Oct 6 09:40:52 2003 UTC revision 1.10 by dpavlin, Tue Dec 2 12:41:40 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::Simple tests => 6;  use Test::Simple tests => 16;
4    
5  use Time::Available qw(:days :fmt_interval);  use Time::Available qw(:days :fmt_interval);
6    use Time::Local;
7    
8    my $tz_offset = time()-timegm(localtime);
9    
10  my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY);  my $i = Time::Available->new( start=>'07', end=>'17:15', dayMask=>DAY_WEEKDAY);
11  ok( defined($i) , 'new() work');  ok( defined($i) , 'new() work');
12    
13  ok( defined($i->{start}) && $i->{start} == 7*60*60, 'start time ok' );  ok( defined($i->{start_arr}) &&
14  ok( defined($i->{end}) && $i->{end} == ((17*60)+15)*60, 'end time ok' );          $i->{start_arr}[0] == 0 &&
15            $i->{start_arr}[1] == 0 &&
16            $i->{start_arr}[2] == 7,
17            'start time ok' );
18    ok( defined($i->{end_arr}) &&
19            $i->{end_arr}[0] == 0 &&
20            $i->{end_arr}[1] == 15 &&
21            $i->{end_arr}[2] == 17,
22            'end time ok' );
23    
24  my $t = 1 * 24; # 1d  my $t = 1 * 24; # 1d
25  $t += 11;       # 11 hr  $t += 11;       # 11 hr
# Line 26  ok( fmt_interval($t) eq '1d 11:11:11', ' Line 37  ok( fmt_interval($t) eq '1d 11:11:11', '
37    
38  # test this timespan (07:00-17:15) with above values  # test this timespan (07:00-17:15) with above values
39    
40  #ok($i->uptime(20000)==36900,'ok');  ok($i->uptime(20000)==36900,'ok');
41  #ok($i->uptime(30000)==28500,'ok');  ok($i->uptime(30000)==28500,'ok');
42  #ok($i->uptime(50000)==8500,'ok');  ok($i->uptime(50000)==8500,'ok');
43  #ok($i->uptime(60000)==0,'ok');  ok($i->uptime(60000)==0,'ok');
44    
45  # create and test timespan which spans over midnight  # create and test timespan which spans over midnight
46    
47  $i = Time::Available->new( start=>'17:15', end=>'07:00', dayMask=>DAY_THURSDAY);  $i = Time::Available->new( start=>'17:15', end=>'07:00', dayMask=>DAY_THURSDAY);
48  ok( defined($i->{start}) && $i->{start} == ((17*60)+15)*60, 'end time ok' );  ok( defined($i->{start_arr}) &&
49  ok( defined($i->{end}) && $i->{end} == 7*60*60, 'start time ok' );          $i->{start_arr}[0] == 0 &&
50            $i->{start_arr}[1] == 15 &&
51  #ok($i->uptime(20000)==25900,'ok');          $i->{start_arr}[2] == 17,
52  #ok($i->uptime(30000)==24300,'ok');          'end time ok' );
53  #ok($i->uptime(50000)==24300,'ok');  ok( defined($i->{end_arr}) &&
54  #ok($i->uptime(60000)==22800,'ok');          $i->{end_arr}[0] == 0 &&
55            $i->{end_arr}[1] == 0 &&
56  #$t=time();$u=$i->uptime($t);print STDERR " uptime ( $t $u ) ",scalar localtime $t,": ",fmt_interval($u)," ($u)\n";          $i->{end_arr}[2] == 7,
57            'start time ok' );
58    
59  $i = Time::Available->new( start=>'07:00', end=>'17:00', dayMask=>DAY_WEEKDAY, DEBUG=>1);  ok($i->uptime(20000)==29500,'ok');
60    ok($i->uptime(30000)==27900,'ok');
61  #print STDERR "\n",$i->interval(100000,500001),"\n\n";  ok($i->uptime(50000)==27900,'ok');
62  #print STDERR "\n",$i->interval(200100000,200500001),"\n\n";  ok($i->uptime(60000)==26400,'ok');
63  #print STDERR "\n",$i->interval(1061478325,1061478819),"\n\n";  
64  #print STDERR "\n",$i->interval(1061550928,1061551126),"\n\n";  $i = Time::Available->new( start=>'00:00', end=>'23:59', dayMask=>DAY_SUNDAY, debug=>1);
65  #print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n";  ok($i->_dayOk(0) == 1, 'ok');
66  print STDERR "\n",$i->interval(1049666442,1050351024),"\n\n";  $i = Time::Available->new( start=>'00:00', end=>'23:59', dayMask=>DAY_MONDAY, debug=>1);
67    ok($i->_dayOk(1) == 1, 'ok');
68    
69    #               DAY_MONDAY
70    #               DAY_TUESDAY
71    #               DAY_WEDNESDAY
72    #               DAY_THURSDAY
73    #               DAY_FRIDAY
74    #               DAY_SATURDAY
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.26