Rose-HTML-Objects-0.623/t/form-field-datetime.t

23 my $field = Rose::HTML::Form::Field::DateTime->new(
31 ok(ref $field eq 'Rose::HTML::Form::Field::DateTime', 'new()');
33 is($field->html_field, '<input name="date" size="30" type="text" value="1984-12-25 12:00:00 AM">', …
34 is($field->xhtml_field, '<input name="date" size="30" type="text" value="1984-12-25 12:00:00 AM" />…
36 my $date = $field->internal_value;
40 is($field->input_value, '12/25/1984', 'input_value() 1');
41 is($field->output_value, '1984-12-25 12:00:00 AM', 'output_value() 1');
43 $field->clear;
45 is($field->html_field, '<input name="date" size="30" type="text" value="">', 'html_field() 2');
46 is($field->xhtml_field, '<input name="date" size="30" type="text" value="" />', 'xhtml_field() 2');
48 is($field->internal_value, undef, 'internal_value() 3');
49 is($field->input_value, undef, 'input_value() 2');
50 is($field->output_value, undef, 'output_value() 2');
52 $field->reset;
54 is($field->html_field, '<input name="date" size="30" type="text" value="2000-01-01 12:00:00 AM">', …
55 is($field->xhtml_field, '<input name="date" size="30" type="text" value="2000-01-01 12:00:00 AM" />…
57 $date = $field->internal_value;
61 is($field->input_value, '1/1/2000', 'input_value() 3');
62 is($field->output_value, '2000-01-01 12:00:00 AM', 'output_value() 3');
65 $field->delete_html_attr('size');
67 is($field->html_field, '<input name="date" size="25" type="text" value="2000-01-01 12:00:00 AM">', …
68 is($field->xhtml_field, '<input name="date" size="25" type="text" value="2000-01-01 12:00:00 AM" />…
70 is($field->validate, 1, 'validate() 1');
72 $field->input_value('foo');
74 is($field->internal_value, undef, 'internal_value() 6');
75 is($field->input_value, 'foo', 'input_value() 4');
76 is($field->output_value, 'foo', 'output_value() 4');
78 is($field->validate, 0, 'validate() 2');
80 $field->output_filter(sub { uc });
82 is($field->internal_value, undef, 'internal_value() 7');
83 is($field->input_value, 'foo', 'input_value() 5');
84 is($field->output_value, 'FOO', 'output_value() 5');
86 $field->output_filter(sub { lc });
87 $field->input_filter(sub { s/^-//; $_ });
89 $field->input_value('-2/2/2003');
91 is($field->validate, 1, 'validate() 3');
93 $date = $field->internal_value;
98 is($field->input_value, '-2/2/2003', 'input_value() 6');
99 is($field->output_value, '2003-02-02 12:00:00 am', 'output_value() 6');
101 $field->time_zone('UTC');
103 $field->input_value('3/4/2005 12:34:56');
106 my $d2 = $field->internal_value;
112 $field->output_format('%m.%d.%Y');
113 is($field->output_value, '03.04.2005', 'output_format()');
119 $field = Rose::HTML::Form::Field::Date->new(
127 ok(ref $field eq 'Rose::HTML::Form::Field::Date', 'new()');
129 is($field->html_field, '<input name="date" size="30" type="text" value="1984-12-25">', 'date html_f…
130 is($field->xhtml_field, '<input name="date" size="30" type="text" value="1984-12-25" />', 'date xht…
132 $date = $field->internal_value;
136 is($field->input_value, '12/25/1984', 'date input_value() 1');
137 is($field->output_value, '1984-12-25', 'date output_value() 1');
139 $field->clear;
141 is($field->html_field, '<input name="date" size="30" type="text" value="">', 'date html_field() 2');
142 is($field->xhtml_field, '<input name="date" size="30" type="text" value="" />', 'date xhtml_field()…
144 is($field->internal_value, undef, 'internal_value() 3');
145 is($field->input_value, undef, 'input_value() 2');
146 is($field->output_value, undef, 'output_value() 2');
148 $field->reset;
150 is($field->html_field, '<input name="date" size="30" type="text" value="2000-01-01">', 'date html_f…
151 is($field->xhtml_field, '<input name="date" size="30" type="text" value="2000-01-01" />', 'date xht…
153 $date = $field->internal_value;
157 is($field->input_value, '1/1/2000', 'date input_value() 3');
158 is($field->output_value, '2000-01-01', 'date output_value() 3');
161 $field->delete_html_attr('size');
163 is($field->html_field, '<input name="date" size="25" type="text" value="2000-01-01">', 'date html_f…
164 is($field->xhtml_field, '<input name="date" size="25" type="text" value="2000-01-01" />', 'date xht…
166 is($field->validate, 1, 'validate() 1');
168 $field->input_value('foo');
170 is($field->internal_value, undef, 'internal_value() 6');
171 is($field->input_value, 'foo', 'date input_value() 4');
172 is($field->output_value, 'foo', 'date output_value() 4');
174 is($field->validate, 0, 'validate() 2');
176 $field->output_filter(sub { uc });
178 is($field->internal_value, undef, 'internal_value() 7');
179 is($field->input_value, 'foo', 'date input_value() 5');
180 is($field->output_value, 'FOO', 'date output_value() 5');
182 $field->output_filter(sub { lc });
183 $field->input_filter(sub { s/^-//; $_ });
185 $field->input_value('-2/2/2003');
187 is($field->validate, 1, 'validate() 3');
189 $date = $field->internal_value;
194 is($field->input_value, '-2/2/2003', 'date input_value() 6');
195 is($field->output_value, '2003-02-02', 'date output_value() 6');
197 $field->time_zone('UTC');
199 $field->input_value('3/4/2005 12:34:56');
202 $d2 = $field->internal_value;
208 $field->output_format('%m.%d.%Y');
209 is($field->output_value, '03.04.2005', 'date output_format()');
215 $field = Rose::HTML::Form::Field::DateTime::StartDate->new(
223 ok(ref $field eq 'Rose::HTML::Form::Field::DateTime::StartDate', 'new() - start date');
225 is($field->html_field, '<input name="date" size="30" type="text" value="1984-12-25 12:00:00 AM">', …
226 is($field->xhtml_field, '<input name="date" size="30" type="text" value="1984-12-25 12:00:00 AM" />…
228 $date = $field->internal_value;
232 is($field->input_value, '12/25/1984', 'input_value() 1 - start date');
233 is($field->output_value, '1984-12-25 12:00:00 AM', 'output_value() 1 - start date');
235 $field->clear;
237 is($field->html_field, '<input name="date" size="30" type="text" value="">', 'html_field() 2 - star…
238 is($field->xhtml_field, '<input name="date" size="30" type="text" value="" />', 'xhtml_field() 2 - …
240 is($field->internal_value, undef, 'internal_value() 3 - start date');
241 is($field->input_value, undef, 'input_value() 2 - start date');
242 is($field->output_value, undef, 'output_value() 2 - start date');
244 $field->reset;
246 is($field->html_field, '<input name="date" size="30" type="text" value="2000-01-01 12:00:00 AM">', …
247 is($field->xhtml_field, '<input name="date" size="30" type="text" value="2000-01-01 12:00:00 AM" />…
249 $date = $field->internal_value;
253 is($field->input_value, '1/1/2000', 'input_value() 3 - start date');
254 is($field->output_value, '2000-01-01 12:00:00 AM', 'output_value() 3 - start date');
257 $field->delete_html_attr('size');
259 is($field->html_field, '<input name="date" size="25" type="text" value="2000-01-01 12:00:00 AM">', …
260 is($field->xhtml_field, '<input name="date" size="25" type="text" value="2000-01-01 12:00:00 AM" />…
262 is($field->validate, 1, 'validate() 1 - start date');
264 $field->input_value('foo');
266 is($field->internal_value, undef, 'internal_value() 6 - start date');
267 is($field->input_value, 'foo', 'input_value() 4 - start date');
268 is($field->output_value, 'foo', 'output_value() 4 - start date');
270 is($field->validate, 0, 'validate() 2 - start date');
272 $field->output_filter(sub { uc });
274 is($field->internal_value, undef, 'internal_value() 7 - start date');
275 is($field->input_value, 'foo', 'input_value() 5 - start date');
276 is($field->output_value, 'FOO', 'output_value() 5 - start date');
278 $field->output_filter(sub { lc });
279 $field->input_filter(sub { s/^-//; $_ });
281 $field->input_value('-2/2/2003');
283 is($field->validate, 1, 'validate() 3 - start date');
285 $date = $field->internal_value;
290 is($field->input_value, '-2/2/2003', 'input_value() 6 - start date');
291 is($field->output_value, '2003-02-02 12:00:00 am', 'output_value() 6 - start date');
293 $field->time_zone('UTC');
295 $field->input_value('3/4/2005 12:34:56');
298 $d2 = $field->internal_value;
304 $field->output_format('%m.%d.%Y');
305 is($field->output_value, '03.04.2005', 'output_format() - start date');
311 $field = Rose::HTML::Form::Field::DateTime::EndDate->new(
319 ok(ref $field eq 'Rose::HTML::Form::Field::DateTime::EndDate', 'new()');
321 is($field->html_field, '<input name="date" size="30" type="text" value="1984-12-25 11:59:59 PM">', …
322 is($field->xhtml_field, '<input name="date" size="30" type="text" value="1984-12-25 11:59:59 PM" />…
324 $date = $field->internal_value;
328 is($field->input_value, '12/25/1984', 'input_value() 1 - end date');
329 is($field->output_value, '1984-12-25 11:59:59 PM', 'output_value() 1 - end date');
332 $field->clear;
334 is($field->html_field, '<input name="date" size="30" type="text" value="">', 'html_field() 2 - end …
335 is($field->xhtml_field, '<input name="date" size="30" type="text" value="" />', 'xhtml_field() 2 - …
337 is($field->internal_value, undef, 'internal_value() 3 - end date');
338 is($field->input_value, undef, 'input_value() 2 - end date');
339 is($field->output_value, undef, 'output_value() 2 - end date');
341 $field->reset;
343 is($field->html_field, '<input name="date" size="30" type="text" value="2000-01-01 11:59:59 PM">', …
344 is($field->xhtml_field, '<input name="date" size="30" type="text" value="2000-01-01 11:59:59 PM" />…
346 $date = $field->internal_value;
350 is($field->input_value, '1/1/2000', 'input_value() 3 - end date');
351 is($field->output_value, '2000-01-01 11:59:59 PM', 'output_value() 3 - end date');
354 $field->delete_html_attr('size');
356 is($field->html_field, '<input name="date" size="25" type="text" value="2000-01-01 11:59:59 PM">', …
357 is($field->xhtml_field, '<input name="date" size="25" type="text" value="2000-01-01 11:59:59 PM" />…
359 is($field->validate, 1, 'validate() 1 - end date');
361 $field->input_value('foo');
363 is($field->internal_value, undef, 'internal_value() 6 - end date');
364 is($field->input_value, 'foo', 'input_value() 4 - end date');
365 is($field->output_value, 'foo', 'output_value() 4 - end date');
367 is($field->validate, 0, 'validate() 2 - end date');
369 $field->output_filter(sub { uc });
371 is($field->internal_value, undef, 'internal_value() 7 - end date');
372 is($field->input_value, 'foo', 'input_value() 5 - end date');
373 is($field->output_value, 'FOO', 'output_value() 5 - end date');
375 $field->output_filter(sub { lc });
376 $field->input_filter(sub { s/^-//; $_ });
378 $field->input_value('-2/2/2003');
380 is($field->validate, 1, 'validate() 3 - end date');
382 $date = $field->internal_value;
387 is($field->input_value, '-2/2/2003', 'input_value() 6 - end date');
388 is($field->output_value, '2003-02-02 11:59:59 pm', 'output_value() 6 - end date');
390 $field->time_zone('UTC');
392 $field->input_value('3/4/2005 12:34:56');
395 $d2 = $field->internal_value;
401 $field->output_format('%m.%d.%Y');
402 is($field->output_value, '03.04.2005', 'output_format() - end date');
408 $field =
414 my($min, $max) = $field->internal_value; # DateTime objects
419 $field->input_value('5/6/1980 3pm to 2003-01-06 20:19:55');
421 my $dates = $field->internal_value;
428 is($field->html_field, '<span class="date-range"><input maxlength="25" name="date.min" size="21" ty…
430 is($field->html, '<table class="date-range"><tr><td class="min"><input maxlength="25" name="date.mi…
432 $field->input_value([ '2/3/2009', '7/8/2001' ]);
434 ok(!$field->validate, 'validate 1 - date range');
436 is($field->html, '<table class="date-range"><tr><td class="min"><input maxlength="25" name="date.mi…
438 is($field->xhtml, '<table class="date-range"><tr><td class="min"><input maxlength="25" name="date.m…
440 $field->field('min')->input_value('asdf');
442 ok(!$field->validate, 'validate 2 - date range');
444 is($field->html, '<table class="date-range"><tr><td class="min"><input class="error" maxlength="25"…
446 is($field->xhtml, '<table class="date-range"><tr><td class="min"><input class="error" maxlength="25…
448 $field->field('min')->input_value('3/6/1970');
450 ok($field->validate, 'validate 3 - date range');
452 $field->clear;
454 $field->field('min')->input_value('5/6/2004');
456 ok(!defined $field->internal_value, 'internal_value 6 - date range');
458 $field->field('max')->input_value('9/9/2005');
460 is($field->internal_value->[0]->strftime('%Y-%m-%d'), '2004-05-06', 'internal_value 7 - date range'…
462 $field->field('min')->input_value('foo');
464 ok(!defined $field->internal_value, 'internal_value 7 - date range');
466 $field->input_value('2005-04-20 8pm to 1/7/2006 3:05 AM');
468 ($min, $max) = $field->internal_value;
473 is($field->output_value, '2005-04-20 20:00:00#2006-01-07 03:05:00', 'output value 1 - date range');
475 $field->range_separator(' to ');
477 is($field->output_value, '2005-04-20 20:00:00 to 2006-01-07 03:05:00', 'range separator 1 - date ra…
479 $field->range_separator_regex(qr(#|\s+(?:to|-)\s+));
481 $field->input_value('2005-04-20 7pm - 1/7/2006 3:06 AM');
483 is($field->output_value, '2005-04-20 19:00:00 to 2006-01-07 03:06:00', 'range separator regex 1 - d…