/[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.2 by dpavlin, Fri Oct 3 15:23:48 2003 UTC revision 1.3 by dpavlin, Fri Oct 3 16:40:02 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::Simple tests => 4;  use Test::Simple tests => 10;
4    
5  use Time::Available qw(:days);  use Time::Available qw(:days :fmt_interval);
6    
7  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, DEBUG=>1 );
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 17  $t += 11;      # 11 min Line 17  $t += 11;      # 11 min
17  $t *= 60;  $t *= 60;
18  $t += 11;       # 11 sec  $t += 11;       # 11 sec
19    
20  ok( Time::Available::fmt_interval($t) eq '1d 11:11:11', 'fmt_interval output ok');  ok( fmt_interval($t) eq '1d 11:11:11', 'fmt_interval output ok');
21    
22  # 20000 = Thu Jan  1 06:33:20 1970  # 20000 = Thu Jan  1 06:33:20 1970
23  # 30000 = Thu Jan  1 09:20:00 1970  # 30000 = Thu Jan  1 09:20:00 1970
24  # 50000 = Thu Jan  1 14:53:20 1970  # 50000 = Thu Jan  1 14:53:20 1970
25  # 60000 = Thu Jan  1 17:40:00 1970  # 60000 = Thu Jan  1 17:40:00 1970
26  #print STDERR "uptime: ",$i->uptime(localtime),"\n";  
27    # test this timespan (07:00-17:15) with above values
28    
29    ok($i->uptime(20000)==36900,'ok');
30    ok($i->uptime(30000)==28500,'ok');
31    ok($i->uptime(50000)==8500,'ok');
32    ok($i->uptime(60000)==0,'ok');
33    
34    undef $i;
35    
36    # create and test timespan which spans over midnight
37    
38    $i = Time::Available->new( start=>'17:15', end=>'07:00', dayMask=>DAY_TUESDAY);
39    ok( defined($i->{start}) && $i->{start} == ((17*60)+15)*60, 'end time ok' );
40    ok( defined($i->{end}) && $i->{end} == 7*60*60, 'start time ok' );
41    
42    $t=time();print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";
43    $t=20000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";
44    $t=30000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";
45    $t=50000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";
46    $t=60000; print STDERR " uptime ( $t ",$i->uptime($t)," ) ",scalar localtime $t,": ",fmt_interval($i->uptime($t))," (",$i->uptime($t),")\n";
47    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26