Hello community, here is the log from the commit of package perl-HTML-FillInForm for openSUSE:Factory checked in at 2013-06-13 17:34:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTML-FillInForm (Old) and /work/SRC/openSUSE:Factory/.perl-HTML-FillInForm.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTML-FillInForm" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTML-FillInForm/perl-HTML-FillInForm.changes 2011-09-23 12:37:18.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTML-FillInForm.new/perl-HTML-FillInForm.changes 2013-06-13 17:34:18.000000000 +0200 @@ -1,0 +2,6 @@ +Mon Jun 10 12:12:33 UTC 2013 - co...@suse.com + +- updated to 2.11 + * Updated tests so that they pass with Perl 5.18 (Mark Stosberg) + +------------------------------------------------------------------- Old: ---- HTML-FillInForm-2.1.tar.gz New: ---- HTML-FillInForm-2.11.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-FillInForm.spec ++++++ --- /var/tmp/diff_new_pack.4JM89e/_old 2013-06-13 17:34:19.000000000 +0200 +++ /var/tmp/diff_new_pack.4JM89e/_new 2013-06-13 17:34:19.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-HTML-FillInForm # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,53 +15,57 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - Name: perl-HTML-FillInForm -BuildRequires: perl-HTML-Parser -BuildRequires: perl-macros -Version: 2.1 -Release: 1 -Requires: perl-HTML-Parser >= 3.26 -AutoReqProv: on -Group: Development/Libraries/Perl +Version: 2.11 +Release: 0 +%define cpan_name HTML-FillInForm +Summary: Populates HTML Forms with data. License: GPL-1.0+ or Artistic-1.0 -Url: http://cpan.org/modules/by-module/HTML/ -Summary: Perl module HTML::FillInForm -Source: HTML-FillInForm-%{version}.tar.gz +Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/HTML-FillInForm/ +Source: http://www.cpan.org/authors/id/M/MA/MARKSTOS/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl-macros +BuildRequires: perl(HTML::Parser) >= 3.26 +BuildRequires: perl(HTML::TokeParser) >= 3.26 +#BuildRequires: perl(HTML::FillInForm) +Requires: perl(HTML::Parser) >= 3.26 +Requires: perl(HTML::TokeParser) >= 3.26 %{perl_requires} %description -This module automatically inserts data from a previous HTML form into -the HTML input and select tags. It is a subclass of HTML::Parser and -uses it to parse the HTML and insert the values into the form tags. +This module fills in an HTML form with data from a Perl data structure, +allowing you to keep the HTML and Perl separate. + +Here are two common use cases: +1. A user submits an HTML form without filling out a required field. You +want to redisplay the form with all the previous data in it, to make it +easy for the user to see and correct the error. +2. You have just retrieved a record from a database and need to display it +in an HTML form. %prep -%setup -n HTML-FillInForm-%{version} +%setup -q -n %{cpan_name}-%{version} %build -perl Makefile.PL -make %{?_smp_mflags} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} %check -make test +%{__make} test %install %perl_make_install %perl_process_packlist +%perl_gen_filelist -%clean -rm -rf $RPM_BUILD_ROOT - -%files -%defattr(-,root,root) +%files -f %{name}.files +%defattr(-,root,root,755) %doc Changes README -%doc %{_mandir}/man?/* -%{perl_vendorlib}/HTML -%{perl_vendorarch}/auto/HTML %changelog ++++++ HTML-FillInForm-2.1.tar.gz -> HTML-FillInForm-2.11.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/Changes new/HTML-FillInForm-2.11/Changes --- old/HTML-FillInForm-2.1/Changes 2011-08-29 20:57:15.000000000 +0200 +++ new/HTML-FillInForm-2.11/Changes 2013-06-03 21:45:40.000000000 +0200 @@ -1,3 +1,8 @@ + +2.11 - June 3rd, 2013 + +Updated tests so that they pass with Perl 5.18 (Mark Stosberg) + 2.1 - August 29th, 2011 Fixed disable_fields option (#52667 Dirk Braun, Goro Fuji) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/MANIFEST new/HTML-FillInForm-2.11/MANIFEST --- old/HTML-FillInForm-2.1/MANIFEST 2011-08-29 20:40:28.000000000 +0200 +++ new/HTML-FillInForm-2.11/MANIFEST 2013-06-03 22:02:46.000000000 +0200 @@ -32,3 +32,4 @@ t/25_select_absent_checkboxes.t t/26_invalid_fields.t t/data/form1.html +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/META.json new/HTML-FillInForm-2.11/META.json --- old/HTML-FillInForm-2.1/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-FillInForm-2.11/META.json 2013-06-03 22:02:46.000000000 +0200 @@ -0,0 +1,43 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "HTML-FillInForm", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "HTML::Parser" : "3.26", + "HTML::TokeParser" : "3.26", + "warnings" : "0" + } + } + }, + "release_status" : "stable", + "version" : "2.11" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/META.yml new/HTML-FillInForm-2.11/META.yml --- old/HTML-FillInForm-2.1/META.yml 2011-08-29 21:10:35.000000000 +0200 +++ new/HTML-FillInForm-2.11/META.yml 2013-06-03 22:02:46.000000000 +0200 @@ -1,22 +1,24 @@ ---- #YAML:1.0 -name: HTML-FillInForm -version: 2.1 -abstract: ~ -author: [] -license: unknown -distribution_type: module -configure_requires: - ExtUtils::MakeMaker: 0 +--- +abstract: unknown +author: + - unknown build_requires: - ExtUtils::MakeMaker: 0 -requires: - HTML::Parser: 3.26 - warnings: 0 -no_index: - directory: - - t - - inc -generated_by: ExtUtils::MakeMaker version 6.55_02 + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +license: unknown meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: HTML-FillInForm +no_index: + directory: + - t + - inc +requires: + HTML::Parser: 3.26 + HTML::TokeParser: 3.26 + warnings: 0 +version: 2.11 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/Makefile.PL new/HTML-FillInForm-2.11/Makefile.PL --- old/HTML-FillInForm-2.1/Makefile.PL 2005-10-13 21:58:53.000000000 +0200 +++ new/HTML-FillInForm-2.11/Makefile.PL 2013-06-03 21:44:38.000000000 +0200 @@ -6,6 +6,7 @@ 'VERSION_FROM' => 'lib/HTML/FillInForm.pm', # finds $VERSION 'PREREQ_PM' => { HTML::Parser => 3.26, + HTML::TokeParser => 3.26, warnings => 0 }, ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/lib/HTML/FillInForm.pm new/HTML-FillInForm-2.11/lib/HTML/FillInForm.pm --- old/HTML-FillInForm-2.1/lib/HTML/FillInForm.pm 2011-08-29 21:05:47.000000000 +0200 +++ new/HTML-FillInForm-2.11/lib/HTML/FillInForm.pm 2013-06-03 21:46:10.000000000 +0200 @@ -10,7 +10,7 @@ require 5.005; use vars qw($VERSION @ISA); -$VERSION = '2.1'; +$VERSION = '2.11'; sub new { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTML-FillInForm-2.1/t/26_invalid_fields.t new/HTML-FillInForm-2.11/t/26_invalid_fields.t --- old/HTML-FillInForm-2.1/t/26_invalid_fields.t 2011-08-29 19:32:08.000000000 +0200 +++ new/HTML-FillInForm-2.11/t/26_invalid_fields.t 2013-06-03 21:43:32.000000000 +0200 @@ -1,50 +1,76 @@ #!/usr/local/bin/perl -# contributed by Trevor Schellhorn - use strict; -use warnings FATAL => 'all'; +use warnings; + +use Test::More; + +use HTML::FillInForm; +use HTML::TokeParser; -use Test::More tests => 11; +my $html = qq[<form><input type="text" name="one" value="all wrong"><input type="text" name="two" class="existing" value="worse"><input type="text" name="three" class="invalid" value="already bad"><select name="four"><option value="1">Foo</option><option value="2">Boo</option></select><textarea name="five"></textarea></form>]; -use_ok('HTML::FillInForm'); +{ + my $result = + HTML::FillInForm->new->fill(scalarref => \$html, + fdat => {two => "new val 2"}, + invalid_fields => ['one']); + my $p = HTML::TokeParser->new(\$result); + + my $one = $p->get_tag('input')->[1]; + + is($one->{name}, 'one'); + is($one->{class}, 'invalid'); + + my $two = $p->get_token->[2]; + is($two->{name}, 'two'); + isnt($two->{class},'invalid'); +} +{ + my $result = HTML::FillInForm->new->fill(scalarref => \$html, + fdat => {two => "new val 2"}, + invalid_fields => ['one', 'two', 'three', 'four', 'five']); + my $p = HTML::TokeParser->new(\$result); + + my $one = $p->get_tag('input')->[1]; + is($one->{name}, 'one'); + is($one->{class}, 'invalid'); + + my $two = $p->get_token->[2]; + is($two->{name}, 'two'); + is($two->{class},'existing invalid'); + + my $three = $p->get_token->[2]; + is($three->{name},'three'); + is($three->{class},'invalid'); + + my $four = $p->get_token->[2]; + is($four->{name}, 'four'); + is($four->{class}, 'invalid'); + + my $five = $p->get_tag('textarea')->[1]; + + is($five->{name},'five'); + is($five->{class},'invalid'); +} +{ + my $result = HTML::FillInForm->new->fill(scalarref => \$html, + fdat => {two => "new val 2"}, + invalid_fields => ['one', 'three'], + invalid_class => "funky"); + my $p = HTML::TokeParser->new(\$result); + + my $one = $p->get_tag('input')->[1]; + is($one->{name}, 'one'); + is($one->{class}, 'funky'); + + my $two = $p->get_token->[2]; + is($two->{name}, 'two'); + is($two->{class},'existing'); + + my $three = $p->get_token->[2]; + is($three->{name},'three'); + is($three->{class},'invalid funky'); +} -my $html = qq[ -<form> -<input type="text" name="one" value="all wrong"> -<input type="text" name="two" class="existing" value="worse"> -<input type="text" name="three" class="invalid" value="already bad"> -<select name="four"> - <option value="1">Foo</option> - <option value="2">Boo</option> -</select> -<textarea name="five"></textarea> -</form> -]; - -my $result = - HTML::FillInForm->new->fill(scalarref => \$html, - fdat => {two => "new val 2"}, - invalid_fields => ['one']); - -like($result, qr/<input[^>]+name="one"[^>]+class="invalid"/); -unlike($result, qr/<input[^>]+name="two"[^>]+class="invalid"/); - -$result = HTML::FillInForm->new->fill(scalarref => \$html, - fdat => {two => "new val 2"}, - invalid_fields => ['one', 'two', 'three', 'four', 'five']); - -like($result, qr/<input[^>]+name="one"[^>]+class="invalid"/); -like($result, qr/<input[^>]+name="two"[^>]+class="existing invalid"/); -like($result, qr/<input[^>]+name="three"[^>]+class="invalid"/); -like($result, qr/<select[^>]+name="four"[^>]+class="invalid"/); -like($result, qr/<textarea[^>]+name="five"[^>]+class="invalid"/); - -$result = HTML::FillInForm->new->fill(scalarref => \$html, - fdat => {two => "new val 2"}, - invalid_fields => ['one', 'three'], - invalid_class => "funky"); - -like($result, qr/<input[^>]+name="one"[^>]+class="funky"/); -like($result, qr/<input[^>]+name="two"[^>]+class="existing"/); -like($result, qr/<input[^>]+name="three"[^>]+class="invalid funky"/); +done_testing(); -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org