[perl-HTML-FormHandler] Fix compound/basic.t test by floating year

[Petr Pisar]

commit a0ed36dfc480056e0eccddcf39bc48aa9d7e2af0
Author: Petr Písař <ppisar at redhat.com>
Date:   Fri Apr 18 12:16:22 2014 +0200

    Fix compound/basic.t test by floating year

 ...55-bug-in-t-compound-basic.t-test-rt91793.patch |   35 ++++++++++++++++++++
 perl-HTML-FormHandler.spec                         |    9 ++++-
 2 files changed, 43 insertions(+), 1 deletions(-)
---
diff --git a/HTML-FormHandler-0.40055-bug-in-t-compound-basic.t-test-rt91793.patch b/HTML-FormHandler-0.40055-bug-in-t-compound-basic.t-test-rt91793.patch
new file mode 100644
index 0000000..56e952e
--- /dev/null
+++ b/HTML-FormHandler-0.40055-bug-in-t-compound-basic.t-test-rt91793.patch
@@ -0,0 +1,35 @@
+From 555f460645d6fd52c5fd8fd386d0dc4bf6f5daa6 Mon Sep 17 00:00:00 2001
+From: Gerda Shank <gerda.shank at gmail.com>
+Date: Thu, 2 Jan 2014 10:45:31 -0500
+Subject: [PATCH] bug in t/compound/basic.t test (rt91793)
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ t/compound/basic.t | 5 +++--
+ 1 file changed, 3 insertions(+), 2 deletions(-)
+
+diff --git a/t/compound/basic.t b/t/compound/basic.t
+index 2929187..6f3604f 100644
+--- a/t/compound/basic.t
++++ b/t/compound/basic.t
+@@ -73,11 +73,12 @@ is( $errors[0], 'Invalid value for Duration: Hours', 'correct error message' );
+ 
+ my $dtform = Form::Start->new;
+ ok( $dtform, 'datetime form' );
++my $year = (localtime)[5] + 1900;
+ $params = { name => 'DT_testing', 'start_date.month' => '10',
+-    'start_date.day' => '2', 'start_date.year' => '2008' };
++    'start_date.day' => '2', 'start_date.year' => $year };
+ $dtform->process( params => $params );
+ ok( $dtform->validated, 'form validated' );
+-is( $dtform->field('start_date')->value->mdy, '10-02-2008', 'datetime value');
++is( $dtform->field('start_date')->value->mdy, "10-02-$year", 'datetime value');
+ $params->{'start_date.month'} = 8;
+ $dtform->process( params => $params );
+ ok( !$dtform->validated, 'form did not validate' );
+-- 
+1.9.0
+
diff --git a/perl-HTML-FormHandler.spec b/perl-HTML-FormHandler.spec
index e363fac..3d7f9d3 100644
--- a/perl-HTML-FormHandler.spec
+++ b/perl-HTML-FormHandler.spec
@@ -1,11 +1,14 @@
 Name:           perl-HTML-FormHandler
 Version:        0.40020
-Release:        3%{?dist}
+Release:        4%{?dist}
 Summary:        HTML forms using Moose
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/HTML-FormHandler/
 Source0:        http://www.cpan.org/authors/id/G/GS/GSHANK/HTML-FormHandler-%{version}.tar.gz
+# Fix compound/basic.t test by floating year, bug #1084050, CPAN RT#91793,
+# in upstream 0.40055
+Patch0:         HTML-FormHandler-0.40055-bug-in-t-compound-basic.t-test-rt91793.patch
 BuildArch:      noarch
 BuildRequires:  perl(aliased)
 BuildRequires:  perl(Carp)
@@ -65,6 +68,7 @@ produce alternative rendering modules.
 
 %prep
 %setup -q -n HTML-FormHandler-%{version}
+%patch0 -p1
 
 find lib -type f -print0 | xargs -0 chmod 644
 
@@ -88,6 +92,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Fri Apr 18 2014 Petr Pisar <ppisar at redhat.com> - 0.40020-4
+- Fix compound/basic.t test by floating year (bug #1084050)
+
 * Sun Aug 04 2013 Petr Pisar <ppisar at redhat.com> - 0.40020-3
 - Perl 5.18 rebuild