Lines 23-54
cmp_ok( $dt->ymd(), 'eq', $testdate_iso, 'Returned object matches input' );
Link Here
|
23 |
$dt->set_hour(12); |
23 |
$dt->set_hour(12); |
24 |
$dt->set_minute(0); |
24 |
$dt->set_minute(0); |
25 |
|
25 |
|
26 |
my $date_string = output_pref( $dt, 'iso' ); |
26 |
my $date_string = output_pref( $dt, 'iso', '24hr' ); |
27 |
cmp_ok $date_string, 'eq', '2011-06-16 12:00', 'iso output'; |
27 |
cmp_ok $date_string, 'eq', '2011-06-16 12:00', 'iso output'; |
28 |
|
28 |
|
29 |
my $date_string = output_pref( $dt, 'iso',1 ); |
29 |
my $date_string = output_pref( $dt, 'iso', '12hr' ); |
|
|
30 |
cmp_ok $date_string, 'eq', '2011-06-16 12:00 PM', 'iso output 12hr'; |
31 |
|
32 |
$date_string = output_pref( $dt, 'iso', undef, 1 ); |
30 |
cmp_ok $date_string, 'eq', '2011-06-16', 'iso output (date only)'; |
33 |
cmp_ok $date_string, 'eq', '2011-06-16', 'iso output (date only)'; |
31 |
|
34 |
|
32 |
$date_string = output_pref( $dt, 'us' ); |
35 |
$date_string = output_pref( $dt, 'us', '24hr' ); |
33 |
cmp_ok $date_string, 'eq', '06/16/2011 12:00', 'us output'; |
36 |
cmp_ok $date_string, 'eq', '06/16/2011 12:00', 'us output'; |
34 |
|
37 |
|
35 |
$date_string = output_pref( $dt, 'us', 1 ); |
38 |
$date_string = output_pref( $dt, 'us', '12hr' ); |
|
|
39 |
cmp_ok $date_string, 'eq', '06/16/2011 12:00 PM', 'us output 12hr'; |
40 |
|
41 |
$date_string = output_pref( $dt, 'us', undef, 1 ); |
36 |
cmp_ok $date_string, 'eq', '06/16/2011', 'us output (date only)'; |
42 |
cmp_ok $date_string, 'eq', '06/16/2011', 'us output (date only)'; |
37 |
|
43 |
|
38 |
# metric should return the French Revolutionary Calendar Really |
44 |
# metric should return the French Revolutionary Calendar Really |
39 |
$date_string = output_pref( $dt, 'metric' ); |
45 |
$date_string = output_pref( $dt, 'metric', '24hr' ); |
40 |
cmp_ok $date_string, 'eq', '16/06/2011 12:00', 'metric output'; |
46 |
cmp_ok $date_string, 'eq', '16/06/2011 12:00', 'metric output'; |
41 |
|
47 |
|
42 |
$date_string = output_pref( $dt, 'metric',1 ); |
48 |
$date_string = output_pref( $dt, 'metric', undef, 1 ); |
43 |
cmp_ok $date_string, 'eq', '16/06/2011', 'metric output (date only)'; |
49 |
cmp_ok $date_string, 'eq', '16/06/2011', 'metric output (date only)'; |
44 |
|
50 |
|
45 |
$date_string = output_pref_due( $dt, 'metric' ); |
51 |
$date_string = output_pref_due( $dt, 'metric', '24hr' ); |
46 |
cmp_ok $date_string, 'eq', '16/06/2011 12:00', |
52 |
cmp_ok $date_string, 'eq', '16/06/2011 12:00', |
47 |
'output_pref_due preserves non midnight HH:SS'; |
53 |
'output_pref_due preserves non midnight HH:SS'; |
48 |
|
54 |
|
49 |
$dt->set_hour(23); |
55 |
$dt->set_hour(23); |
50 |
$dt->set_minute(59); |
56 |
$dt->set_minute(59); |
51 |
$date_string = output_pref_due( $dt, 'metric' ); |
57 |
$date_string = output_pref_due( $dt, 'metric', '24hr' ); |
52 |
cmp_ok $date_string, 'eq', '16/06/2011', |
58 |
cmp_ok $date_string, 'eq', '16/06/2011', |
53 |
'output_pref_due truncates HH:SS at midnight'; |
59 |
'output_pref_due truncates HH:SS at midnight'; |
54 |
|
60 |
|
Lines 87-106
cmp_ok( $dt0->ymd(), 'eq', $ymd, 'Returned object corrects iso day 0' );
Link Here
|
87 |
$dt0 = dt_from_string( '0000-00-00', 'iso' ); |
93 |
$dt0 = dt_from_string( '0000-00-00', 'iso' ); |
88 |
is( $dt0, undef, "undefined returned for 0 iso date" ); |
94 |
is( $dt0, undef, "undefined returned for 0 iso date" ); |
89 |
|
95 |
|
90 |
my $formatted = format_sqldatetime( '2011-06-16 12:00:07', 'metric' ); |
96 |
my $formatted = format_sqldatetime( '2011-06-16 12:00:07', 'metric', '24hr' ); |
91 |
cmp_ok( $formatted, 'eq', '16/06/2011 12:00', 'format_sqldatetime conversion' ); |
97 |
cmp_ok( $formatted, 'eq', '16/06/2011 12:00', 'format_sqldatetime conversion' ); |
92 |
|
98 |
|
93 |
$formatted = format_sqldatetime( undef, 'metric' ); |
99 |
$formatted = format_sqldatetime( undef, 'metric' ); |
94 |
cmp_ok( $formatted, 'eq', q{}, |
100 |
cmp_ok( $formatted, 'eq', q{}, |
95 |
'format_sqldatetime formats undef as empty string' ); |
101 |
'format_sqldatetime formats undef as empty string' ); |
96 |
|
102 |
|
97 |
$formatted = format_sqlduedatetime( '2011-06-16 12:00:07', 'metric' ); |
103 |
$formatted = format_sqlduedatetime( '2011-06-16 12:00:07', 'metric', '24hr' ); |
98 |
cmp_ok( |
104 |
cmp_ok( |
99 |
$formatted, 'eq', |
105 |
$formatted, 'eq', |
100 |
'16/06/2011 12:00', |
106 |
'16/06/2011 12:00', |
101 |
'format_sqlduedatetime conversion for hourly loans' |
107 |
'format_sqlduedatetime conversion for hourly loans' |
102 |
); |
108 |
); |
103 |
|
109 |
|
104 |
$formatted = format_sqlduedatetime( '2011-06-16 23:59:07', 'metric' ); |
110 |
$formatted = format_sqlduedatetime( '2011-06-16 23:59:07', 'metric', '24hr' ); |
105 |
cmp_ok( $formatted, 'eq', '16/06/2011', |
111 |
cmp_ok( $formatted, 'eq', '16/06/2011', |
106 |
'format_sqlduedatetime conversion for daily loans' ); |
112 |
'format_sqlduedatetime conversion for daily loans' ); |
107 |
- |
|
|