commit a0ed36dfc480056e0eccddcf39bc48aa9d7e2af0
Author: Petr Písař <ppisar@xxxxxxxxxx>
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@xxxxxxxxx>
+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@xxxxxxxxxx>
+---
+ 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@xxxxxxxxxx> - 0.40020-4
+- Fix compound/basic.t test by floating year (bug #1084050)
+
* Sun Aug 04 2013 Petr Pisar <ppisar@xxxxxxxxxx> - 0.40020-3
- Perl 5.18 rebuild
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
