|
Packit Service |
653591 |
#!/usr/bin/perl -w
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
use Test::Inter;
|
|
Packit Service |
653591 |
$t = new Test::Inter 'delta :: type';
|
|
Packit Service |
653591 |
$testdir = '';
|
|
Packit Service |
653591 |
$testdir = $t->testdir();
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
use Date::Manip;
|
|
Packit Service |
653591 |
if (DateManipVersion() >= 6.00) {
|
|
Packit Service |
653591 |
$t->feature("DM6",1);
|
|
Packit Service |
653591 |
}
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
$t->skip_all('Date::Manip 6.xx required','DM6');
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
sub test {
|
|
Packit Service |
653591 |
(@args) = @_;
|
|
Packit Service |
653591 |
if (@args == 1) {
|
|
Packit Service |
653591 |
($type) = @args;
|
|
Packit Service |
653591 |
return $obj->type($type);
|
|
Packit Service |
653591 |
} else {
|
|
Packit Service |
653591 |
($op,$val) = @args;
|
|
Packit Service |
653591 |
$obj->set($op,$val);
|
|
Packit Service |
653591 |
return 0
|
|
Packit Service |
653591 |
}
|
|
Packit Service |
653591 |
}
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
$obj = new Date::Manip::Delta;
|
|
Packit Service |
653591 |
$obj->config("forcedate","now,America/New_York");
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
$tests="
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
normal [ 0 0 0 0 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
normal [ 0 0 1 2 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
delta [ 1 0 0 0 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business [ 0 0 0 0 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business [ 0 0 0 1 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business [ 0 0 1 2 1 2 3 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
delta [ 1 0 0 0 10 20 30 ] => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
business => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
standard => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
exact => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
semi => 0
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
approx => 1
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
###
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
";
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
$t->tests(func => \&test,
|
|
Packit Service |
653591 |
tests => $tests);
|
|
Packit Service |
653591 |
$t->done_testing();
|
|
Packit Service |
653591 |
|
|
Packit Service |
653591 |
#Local Variables:
|
|
Packit Service |
653591 |
#mode: cperl
|
|
Packit Service |
653591 |
#indent-tabs-mode: nil
|
|
Packit Service |
653591 |
#cperl-indent-level: 3
|
|
Packit Service |
653591 |
#cperl-continued-statement-offset: 2
|
|
Packit Service |
653591 |
#cperl-continued-brace-offset: 0
|
|
Packit Service |
653591 |
#cperl-brace-offset: 0
|
|
Packit Service |
653591 |
#cperl-brace-imaginary-offset: 0
|
|
Packit Service |
653591 |
#cperl-label-offset: 0
|
|
Packit Service |
653591 |
#End:
|