XML-RSS-Timing

 view release on metacpan or  search on metacpan

t/010_tz.t  view on Meta::CPAN

print "# I'm testing XML::RSS::Timing version $XML::RSS::Timing::VERSION\n";

ok 1;
print "# Required OK.\n";

use Time::Local;
my $E1970 = timegm(0,0,0,1,0,70);
ok 1;
print "# E1970 = $E1970 s  (", scalar(gmtime($E1970)), ")\n";

sub t ($$) {
  my $x = XML::RSS::Timing->new;
  $x->use_exceptions(0);
  my $out = $x->_iso_date_to_epoch( $_[0] );
  $out = join '', "ERR(", $x->complaints, ")" unless defined $out;
  return
    $out,
    ($_[1] =~ m/^\d+$/s) ? $_[1] + $E1970 : $_[1],
    "input date: $_[0]"
  ;
}

t/020_next.t  view on Meta::CPAN

ok 1;
print "# E1970 = $E1970 s  (", scalar(gmtime($E1970)), ")\n";

my $now;

sub setnow {
  $now = XML::RSS::Timing->_iso_date_to_epoch($_[0]);
  print "# Setting now to $now = $_[0] = ", scalar(gmtime($now)), "\n";
}

sub n ($$) {
  my $x = XML::RSS::Timing->new;
  $x->lastPolled($now);
  my($temp, $next) = @_;
  my($base, $period, $freq) = ($temp =~ m/(\S+)/sg) ;
  $x->use_exceptions(0);
  
  #print "base{$base}   per{$period}   freq{$freq}\n";
  
  $x->updateBase($base);
  $x->updatePeriod($period);

t/025_misc.t  view on Meta::CPAN

ok 1;
print "# Required OK.\n";

use Time::Local;
my $E1970 = timegm(0,0,0,1,0,70);
ok 1;
print "# E1970 = $E1970 s  (", scalar(gmtime($E1970)), ")\n";

my $x = XML::RSS::Timing->new;

sub n ($) { XML::RSS::Timing->_iso_date_to_epoch( $_[0] ); }
sub between ($$$;$) {
  my($earlier, $later, $period, $freq) = @_;
  $earlier = n($earlier);
  $later   = n($later);
  $x->updatePeriod($period);
  $x->updateFrequency(  $freq || 1);
  my $then = $x->nextUpdate;
  print "# Testing 1980-01-27T00:00 < nextupdate < 1980-02-03T00:00\n";
  print "#  Earlier: ", scalar(gmtime($earlier)), "\n";
  print "#     Then: ", scalar(gmtime($then   )), "\n";

t/030_skip.t  view on Meta::CPAN

my $E1970 = timegm(0,0,0,1,0,70);
ok 1;
print "# E1970 = $E1970 s  (", scalar(gmtime($E1970)), ")\n";

my @skipHours;
my @skipDays;

sub skipHours { @skipHours = @_; print "# skipHours: @skipHours\n" };
sub skipDays  { @skipDays  = @_; print "# skipDays:  @skipDays\n" };

sub S ($$) {
  my $x = XML::RSS::Timing->new;
  my($now, $next) = @_;
  $x->use_exceptions(0);
  $x->lastPolled( $x->_iso_date_to_epoch( $now ) );
  $x->skipHours(@skipHours);
  $x->skipDays( @skipDays );
  my $out = $x->nextUpdate;
  $out = join '', "ERR(", $x->complaints, ")" unless defined $out;

  if( $next =~ m/:/s ) {

t/040_next_skippy.t  view on Meta::CPAN

my @skipDays;

sub skipHours { @skipHours = @_; print "# skipHours: @skipHours\n" };
sub skipDays  { @skipDays  = @_; print "# skipDays:  @skipDays\n" };

sub setnow {
  $now = XML::RSS::Timing->_iso_date_to_epoch($_[0]);
  print "# Setting now to $now = $_[0] = ", scalar(gmtime($now)), "\n";
}

sub n ($$) {
  my $x = XML::RSS::Timing->new;
  $x->lastPolled($now);
  my($temp, $next) = @_;
  my($base, $period, $freq) = ($temp =~ m/(\S+)/sg) ;
  $x->use_exceptions(0);
  
  #print "base{$base}   per{$period}   freq{$freq}\n";
  
  $x->updateBase($base);
  $x->updatePeriod($period);