#!/usr/bin/perl -w

use Test::Inter;

$t = new Test::Inter 'delta :: printf';

$testdir = '';

$testdir = $t->testdir();

use Date::Manip;

if (DateManipVersion() >= 6.00) {

   $t->feature("DM6",1);

}

$t->skip_all('Date::Manip 6.xx required','DM6');

sub test {

  ($delta,@test)=@_;

  $obj->parse($delta);

  return $obj->printf(@test);

}

$obj = new Date::Manip::Delta;

$obj->config("forcedate","now,America/New_York");

$tests="

1:2:3:4:5:6:7

'|A %% B|'

   =>

   '|A % B|'

1:2:3:4:5:6:7

'|Month: %Mv|'

   =>

   '|Month: 2|'

1:2:3:4:5:6:7

'|Day: %+05dv|'

   =>

   '|Day: +0004|'

1:2:3:4:5:6:7

'|Day: %+<5dv|'

   =>

   '|Day:    +4|'

1:2:3:4:5:6:7

'|Day: %>5sv|'

   =>

   '|Day: 7    |'

1:2:3:4:5:6:7

'|%yv %Mv %wv %dv %hv %mv %sv|'

   =>

   '|1 2 3 4 5 6 7|'

1:2:3:4:5:6:7

'|%.4yyM %.4MMM %.4wws %.4dds %.4hhs %.4mms %.4sss|'

   =>

   '|1.1667 2.0000 3.6018 4.2126 5.1019 6.1167 7.0000|'

1:2:3:4:5:6:7

'|%.4Myw|'

   =>

   '|14.6900|'

1:2:3:4:5:6:7

'|%yyy %MyM %www %dwd %hwh %mwm %sws|'

   =>

   '|1 14 3 25 605 36306 2178367|'

1:2:3:4:5:6:7

'|%.4yyM %.4MyM %.4wws %.4dws %.4hws %.4mws %.4sws|'

   =>

   '|1.1667 14.0000 3.6018 25.2126 605.1019 36306.1167 2178367.0000|'

1:2:3:4:5:6:7

'|%>8.3yyM %>8.3MyM %>8.3wws %>8.3dws %>8.3hws %>8.3mws %>8.3sws|'

   =>

   '|1.167    14.000   3.602    25.213   605.102  36306.117 2178367.000|'

1:2:3:4:5:6:7

'|%<8.3yyM %<8.3MyM %<8.3wws %<8.3dws %<8.3hws %<8.3mws %<8.3sws|'

   =>

   '|   1.167   14.000    3.602   25.213  605.102 36306.117 2178367.000|'

1:2:3:4:5:6:7

'|%08.3yyM %08.3MyM %08.3wws %08.3dws %08.3hws %08.3mws %08.3sws|'

   =>

   '|0001.167 0014.000 0003.602 0025.213 0605.102 36306.117 2178367.000|'

1:2:3:4:5:6:7

'|%+<8.3yyM %+<8.3MyM %+<8.3wws %+<8.3dws %+<8.3hws %+<8.3mws %+<8.3sws|'

   =>

   '|  +1.167  +14.000   +3.602  +25.213 +605.102 +36306.117 +2178367.000|'

1:2:3:4:5:6:7

'|%+08.3yyM %+08.3MyM %+08.3wws %+08.3dws %+08.3hws %+08.3mws %+08.3sws|'

   =>

   '|+001.167 +014.000 +003.602 +025.213 +605.102 +36306.117 +2178367.000|'

1:2:3:4:5:6:7

'|%.4yys %.4MMs %.4wws %.4dds %.4hhs %.4mms %.4sss|'

   =>

   '|1.2357 2.8284 3.6018 4.2126 5.1019 6.1167 7.0000|'

1:2:3:4:5:6:7

'|%.3yyy %.3MyM %.3wyw %.3dyd %.3hyh %.3mym %.3sys|'

   =>

   '|1.000 14.000 63.874 451.116 10831.790 649913.400 38994811.000|'

1:2:3:4:5:6:7

'|%.4yys %.4Mys %.4wys %.4dys %.4hys %.4mys %.4sys|'

   =>

   '|1.2357 14.8284 64.4755 451.3288 10831.8919 649913.5167 38994811.0000|'

'1:2:3:4:5:6:7 business'

'|%.4yys %.4Mys %.4wys %.4dys %.4hys %.4mys %.4sys|'

   =>

   '|1.2417 14.9000 64.7871 323.9356 2915.4207 174925.2417 10495514.5000|'

1:2:3:4:5:6:0

'|%Dt|'

    =>

    '|+1:2:+3:4:5:6:0|'

'1:2:3:4:5:6:0 business'

'|%Dt|'

    =>

    '|+1:2:+3:+4:5:6:0|'

-1:2:3:4:5:6:0

'|%Dt|'

    =>

    '|-1:2:-3:4:5:6:0|'

1:2:3:4:5:6:0

'|%+Dt|'

    =>

    '|+1:+2:+3:+4:+5:+6:+0|'

-1:2:3:4:5:6:0

'|%+Dt|'

    =>

    '|-1:-2:-3:-4:-5:-6:-0|'

1:2:3:4:5:6:0

'|%Dyy|'

    =>

    '|+1|'

1:2:3:4:5:6:0

'|%DyM|'

    =>

    '|+1:2|'

1:2:3:4:5:6:0

'|%Dyd|'

    =>

    '|+1:2:+3:4|'

'1:2:3:4:5:6:0 business'

'|%Dyy|'

    =>

    '|+1|'

'1:2:3:4:5:6:0 business'

'|%DyM|'

    =>

    '|+1:2|'

'1:2:3:4:5:6:0 business'

'|%Dyd|'

    =>

    '|+1:2:+3:+4|'

1:2:3:4:5:6:0

'|%+Dyd|'

    =>

    '|+1:+2:+3:+4|'

1:2:3:4:5:6:0

'|%+>10Dyd|'

    =>

    '|+1:+2:+3:+4|'

1:2:3:4:5:6:0

'|%+>18Dyd|'

    =>

    '|+1:+2:+3:+4       |'

1:2:3:4:5:6:0

'|%+18Dyd|'

    =>

    '|       +1:+2:+3:+4|'

1:2:3:4:5:6:0

'|%+<18Dyd|'

    =>

    '|       +1:+2:+3:+4|'

1:2:3:4:5:6:0 %DyM %Dyd %Dyy => +1:2 +1:2:+3:4 +1

";

$t->tests(func  => \&test,

          tests => $tests);

$t->done_testing();

#Local Variables:

#mode: cperl

#indent-tabs-mode: nil

#cperl-indent-level: 3

#cperl-continued-statement-offset: 2

#cperl-continued-brace-offset: 0

#cperl-brace-offset: 0

#cperl-brace-imaginary-offset: 0

#cperl-label-offset: 0

#End: