1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6$::ti = new Test::Inter $0;
7require "tests-dm5.pl";
8
9Date_Init("TZ=EST");
10
11my $tests="
12
131:2:3:4:5:6:7
144
15'%yv %Mv %wv %dv %hv %mv %sv'
16=>
17'1 2 3 4 5 6 7'
18
191:2:3:4:5:6:7
204
21'%yd %Md %wd %dd %hd %md %sd'
22=>
23'1.1667 2.0000 3.6018 4.2126 5.1019 6.1167 7.0000'
24
251:2:3:4:5:6:7
260
27'%yh %Mh %wh %dh %hh %mh %sh'
28=>
29'1 14 3 25 605 36306 2178367'
30
311:2:3:4:5:6:7
324
33'%yt %Mt %wt %dt %ht %mt %st'
34=>
35'1.1667 14.0000 3.6018 25.2126 605.1019 36306.1167 2178367.0000'
36
371:2:3:4:5:6:7
38approx
394
40'%yv %Mv %wv %dv %hv %mv %sv'
41=>
42'1 2 3 4 5 6 7'
43
441:2:3:4:5:6:7
45approx
464
47'%yd %Md %wd %dd %hd %md %sd'
48=>
49'1.2357 2.8283 3.6018 4.2126 5.1019 6.1167 7.0000'
50
511:2:3:4:5:6:7
52approx
534
54'%yh %Mh %wh %dh %hh %mh %sh'
55=>
56'1 14 63.875 451.125 10832 649926 38995567'
57
581:2:3:4:5:6:7
59approx
604
61'%yt %Mt %wt %dt %ht %mt %st'
62=>
63'1.2357 14.8283 64.4768 451.3376 10832.1019 649926.1167 38995567.0000'
64
65";
66
67$::ti->tests(func  => \&Delta_Format,
68             tests => $tests);
69$::ti->done_testing();
70
71#Local Variables:
72#mode: cperl
73#indent-tabs-mode: nil
74#cperl-indent-level: 3
75#cperl-continued-statement-offset: 2
76#cperl-continued-brace-offset: 0
77#cperl-brace-offset: 0
78#cperl-brace-imaginary-offset: 0
79#cperl-label-offset: 0
80#End:
81