/[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.1 by dpavlin, Fri Oct 3 14:19:50 2003 UTC revision 1.2 by dpavlin, Fri Oct 3 15:23:48 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2    
3  use Test::Simple tests => 3;  use Test::Simple tests => 4;
4    
5  use Time::Available qw(:days);  use Time::Available qw(:days);
6    
# Line 10  ok( defined($i) , 'new() work'); Line 10  ok( defined($i) , 'new() work');
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' );
11  ok( defined($i->{end}) && $i->{end} == ((17*60)+15)*60, 'end time ok' );  ok( defined($i->{end}) && $i->{end} == ((17*60)+15)*60, 'end time ok' );
12    
13  print $i->uptime(localtime),"\n";  my $t = 1 * 24; # 1d
14    $t += 11;       # 11 hr
15    $t *= 60;
16    $t += 11;       # 11 min
17    $t *= 60;
18    $t += 11;       # 11 sec
19    
20    ok( Time::Available::fmt_interval($t) eq '1d 11:11:11', 'fmt_interval output ok');
21    
22    # 20000 = Thu Jan  1 06:33:20 1970
23    # 30000 = Thu Jan  1 09:20:00 1970
24    # 50000 = Thu Jan  1 14:53:20 1970
25    # 60000 = Thu Jan  1 17:40:00 1970
26    #print STDERR "uptime: ",$i->uptime(localtime),"\n";
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26