/[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.9 by dpavlin, Sun Oct 12 19:17:31 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 => 14;  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;  use Time::Local;
# Line 61  ok($i->uptime(30000)==27900,'ok'); Line 61  ok($i->uptime(30000)==27900,'ok');
61  ok($i->uptime(50000)==27900,'ok');  ok($i->uptime(50000)==27900,'ok');
62  ok($i->uptime(60000)==26400,'ok');  ok($i->uptime(60000)==26400,'ok');
63    
64    $i = Time::Available->new( start=>'00:00', end=>'23:59', dayMask=>DAY_SUNDAY, debug=>1);
65    ok($i->_dayOk(0) == 1, 'ok');
66    $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.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.26