+
+Invalid date
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML_ERRORS
+
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,91 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use HTML::FormFu;
+use DateTime;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+my $date = $form->element('Date')->name('foo')->strftime("%m/%d/%Y")
+ ->year( { reference => 2007 } );
+
+$form->process;
+
+# check that setting default() after calling process() works correctly
+
+my $dt = DateTime->new( day => 6, month => 8, year => 2007 );
+
+$date->default($dt);
+
+is( "$form", <
+
+
+
+
+
+
+
+
+HTML
+
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_datetime_args.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_datetime_args.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_datetime_args.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_datetime_args.t 2013-12-16 10:48:12.000000000 +0000
@@ -0,0 +1,43 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use HTML::FormFu;
+use DateTime;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->load_config_file('t-aggregate/elements/date_default_datetime_args.yml');
+
+$form->process;
+
+{
+ my $parser
+ = DateTime::Format::Natural->new( time_zone => 'Europe/Berlin', );
+
+ my $dt = $parser->parse_datetime('now');
+
+ my $foo = $form->get_field('foo');
+
+ my $year = $dt->year;
+ my $year_xhtml
+ = qq{};
+
+ cmp_ok( $foo, '=~', $year_xhtml );
+
+ my $hour = sprintf "%02d", $dt->hour;
+ my $hour_xhtml
+ = qq{};
+
+ cmp_ok( $foo, '=~', $hour_xhtml );
+}
+
+{
+ my $bar = $form->get_field('bar');
+
+ my $year_xhtml = qq{};
+
+ cmp_ok( $bar, '=~', $year_xhtml );
+}
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_datetime_args.yml libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_datetime_args.yml
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_datetime_args.yml 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_datetime_args.yml 2013-12-16 10:48:12.000000000 +0000
@@ -0,0 +1,15 @@
+---
+elements:
+ - type: DateTime
+ name: foo
+ default_natural: now
+ default_datetime_args:
+ set_time_zone: Europe/Berlin
+
+ - type: DateTime
+ name: bar
+ year:
+ reference: 2000
+ default_natural: now
+ default_datetime_args:
+ set_year: 2001
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_empty.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_empty.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_default_empty.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_default_empty.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,86 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use HTML::FormFu;
+use DateTime;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+# check that calling default('') doesn't cause a fatal error
+
+my $date = $form->element('Date')->name('foo')->strftime("%m/%d/%Y")
+ ->year( { reference => 2007 } )->default('');
+
+$form->process;
+
+is( "$form", <
+
+
+
+
+
+
+
+
+HTML
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_month_year.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_month_year.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_month_year.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_month_year.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,181 @@
+use strict;
+use warnings;
+
+use Test::More tests => 7;
+
+use HTML::FormFu;
+use DateTime;
+
+my $dt = DateTime->new( month => 8, year => 2007 );
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->element('Date')->name('foo')->default($dt)
+ ->field_order( [qw/ month year /] )->strftime('%m/%Y')->month( {
+ prefix => '-- Month --',
+ short_names => 1,
+ }
+ )->year( {
+ prefix => '-- Year --',
+ list => [ 2007 .. 2017 ],
+ } )->auto_inflate(1)->constraint('Required');
+
+$form->element('Date')->name('bar')->default('08-2007')
+ ->field_order( [qw/ year month /] )->strftime('%m-%Y')
+ ->year( { list => [ 2007 .. 2017 ] } );
+
+$form->process;
+
+is( "$form", <
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML
+
+$form->process(
+ { 'foo_month', 6, 'foo_year', 2007, 'bar_month', 7, 'bar_year', 2007, } );
+
+ok( $form->submitted_and_valid );
+
+my $foo = $form->param('foo');
+my $bar = $form->param('bar');
+
+isa_ok( $foo, 'DateTime' );
+ok( !ref $bar );
+
+is( $foo, "06/2007" );
+is( $bar, "07-2007" );
+
+is( "$form", <
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML
+
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_natural.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_natural.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_natural.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_natural.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use HTML::FormFu;
+use DateTime;
+
+{
+ my $today = DateTime->today;
+ my $form = HTML::FormFu->new;
+ my $e = $form->element('Date');
+ $e->name('foo')->default_natural('today');
+
+ $form->process;
+
+ for (qw( day month year )) {
+ is( $e->$_->{default}, $today->$_ );
+ }
+}
+
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_order.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_order.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_order.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_order.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,318 @@
+use strict;
+use warnings;
+
+use Test::More tests => 7;
+
+use HTML::FormFu;
+use DateTime;
+
+my $dt = DateTime->new( day => 6, month => 8, year => 2007 );
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->element('Date')->name('foo')->strftime("%m/%d/%Y")
+ ->field_order( [qw/ month day year /] )->day( { prefix => '-- Day --', } )
+ ->month( {
+ prefix => '-- Month --',
+ short_names => 1,
+ }
+ )->year( {
+ prefix => '-- Year --',
+ list => [ 2007 .. 2017 ],
+ } )->default($dt)->auto_inflate(1)->constraint('Required');
+
+$form->element('Date')->name('bar')->default('14-08-2007')
+ ->field_order( [qw/ year month day /] )
+ ->year( { list => [ 2007 .. 2017 ] } );
+
+$form->process;
+
+is( "$form", <
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML
+
+$form->process( {
+ 'foo_day', 30, 'foo_month', 6, 'foo_year', 2007,
+ 'bar_day', 1, 'bar_month', 7, 'bar_year', 2007,
+ } );
+
+ok( $form->submitted_and_valid );
+
+my $foo = $form->param('foo');
+my $bar = $form->param('bar');
+
+isa_ok( $foo, 'DateTime' );
+ok( !ref $bar );
+
+is( $foo, "06/30/2007" );
+is( $bar, "01-07-2007" );
+
+is( "$form", <
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML
+
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_order_error.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_order_error.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_order_error.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_order_error.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use HTML::FormFu;
+
+{
+ my $form = HTML::FormFu->new;
+
+ eval {
+ my $element = $form->element('Date');
+ $element->name('date');
+ $element->field_order( [qw/ month day foo /] );
+ $form->process;
+ };
+
+ ok($@);
+}
+
+{
+ my $form = HTML::FormFu->new;
+
+ eval {
+ my $element = $form->element('Date');
+ $element->name('date');
+ $form->process;
+ $element->field_order( [qw/ month month day /] )->value('01-01-2007');
+ };
+
+ ok($@);
+}
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_rename.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_rename.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_rename.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_rename.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use HTML::FormFu;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+my $date = $form->element('Date')->name('foo');
+
+$form->process;
+
+# change name
+
+$date->name('bar');
+
+$form->process;
+
+like( "$form", qr/name="bar_day"/ );
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_undef.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_undef.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_undef.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_undef.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use HTML::FormFu;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->populate( {
+ elements => [ {
+ type => "Date",
+ name => "foo",
+ year => { list => [2009] },
+ default => '30-08-2009'
+ } ] } );
+
+$form->process;
+
+like( $form->render, qr/value="2009" selected="selected"/ );
+
+$form->get_field('foo')->default(undef);
+
+like( $form->render, qr/value="2009">/ );
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_year_reverse.t libhtml-formfu-perl-1.00000/t-aggregate/elements/date_year_reverse.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_year_reverse.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_year_reverse.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,79 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use HTML::FormFu;
+use DateTime;
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->load_config_file('t-aggregate/elements/date_year_reverse.yml');
+
+my $dt = DateTime->new( day => 6, month => 8, year => 2010 );
+
+$form->get_field('foo')->default($dt);
+
+$form->process;
+
+is( "$form", <
+
+
+
+
+
+
+
+
+HTML
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/date_year_reverse.yml libhtml-formfu-perl-1.00000/t-aggregate/elements/date_year_reverse.yml
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/date_year_reverse.yml 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/date_year_reverse.yml 2013-12-16 10:48:12.000000000 +0000
@@ -0,0 +1,7 @@
+---
+elements:
+ - type: Date
+ name: foo
+ year:
+ list: [2009, 2010, 2011]
+ reverse: 1
diff -Nru libhtml-formfu-perl-0.09010/t-aggregate/elements/datetime.t libhtml-formfu-perl-1.00000/t-aggregate/elements/datetime.t
--- libhtml-formfu-perl-0.09010/t-aggregate/elements/datetime.t 1970-01-01 00:00:00.000000000 +0000
+++ libhtml-formfu-perl-1.00000/t-aggregate/elements/datetime.t 2013-12-16 10:48:11.000000000 +0000
@@ -0,0 +1,674 @@
+use strict;
+use warnings;
+
+use Test::More tests => 16;
+
+use HTML::FormFu;
+use DateTime;
+
+my $dt = DateTime->new(
+ day => 6,
+ month => 8,
+ year => 2007,
+ hour => 1,
+ minute => 0,
+);
+
+my $form = HTML::FormFu->new(
+ { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );
+
+$form->load_config_file('t-aggregate/elements/datetime.yml');
+
+$form->get_field('foo')->default($dt);
+
+$form->process;
+
+is( "$form", <
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+HTML
+
+$form->process( {
+ foo_hour => '00',
+ foo_minute => '00',
+ foo_day => 30,
+ foo_month => 6,
+ foo_year => 2007,
+ bar_hour => '01',
+ bar_minute => '30',
+ bar_day => 1,
+ bar_month => 7,
+ bar_year => 2007,
+ } );
+
+ok( $form->submitted_and_valid );
+
+my $foo = $form->param('foo');
+my $bar = $form->param('bar');
+
+isa_ok( $foo, 'DateTime' );
+ok( !ref $bar );
+
+is( $foo, "06/30/2007 00:00" );
+is( $bar, "01-07-2007 01:30" );
+
+like( $form->get_field('foo'), qr/\Q