#!/usr/bin/perl
use lib "../lib";
use Common;

my $rules_x = [ qw[ 5 10 30 60 75 125 210 300 600 1250 3600 ] ];
my $rules_y = [ 1, (60*60*24), (50), (50) ];
my $tasks = [ time ];
my $y_oper = 1;
for my $y (@$rules_y)
	{
	$y_oper *= $y;
	for my $x (@$rules_x)
		{
#		print "$x\t$y_oper\t" . int($x * $y_oper) . " " . ( time - int( $x * $y_oper) ). "\n";
		push @$tasks, (time - int( $x * $y_oper ));
		}
	}
run_tasks($tasks);

sub run_tasks
	{
	my ($tasks) = @_;
	for my $task (@$tasks)
		{
		print $task . "\t-- ";
		print test($task) . "\t";
#		print expected($task) . "\n";
		print control($task) . "\n";
		}
	}
sub test
	{ my ($task) = @_; return Common->get_age($task); }
sub control
	{ my ($task) = @_; return Common->show_date($task); }
#sub _load_expected
#	{ my ($self, $task, $expected) = @_; $self->{'expected'} ||= {}; $self->{'expected'}->{$task} = $expected; }
1;