rpms/perl-Class-DBI-AsForm/devel perl-Class-DBI-AsForm-fix01test.patch, NONE, 1.1 perl-Class-DBI-AsForm.spec, 1.4, 1.5

[Tom Callaway (spot)]

Author: spot

Update of /cvs/extras/rpms/perl-Class-DBI-AsForm/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv10930

Modified Files:
	perl-Class-DBI-AsForm.spec 
Added Files:
	perl-Class-DBI-AsForm-fix01test.patch 
Log Message:

Fix the 01 test which is a bit broken.


perl-Class-DBI-AsForm-fix01test.patch:

--- NEW FILE perl-Class-DBI-AsForm-fix01test.patch ---
--- Class-DBI-AsForm-2.42/t/01.t.BAD	2006-09-14 20:54:39.000000000 -0500
+++ Class-DBI-AsForm-2.42/t/01.t	2006-09-14 20:58:35.000000000 -0500
@@ -40,15 +40,15 @@
     "Ordinary text field OK");
 
 Foo->has_a(bar => Bar);
-is(Foo->to_field("bar"), "<select name=\"bar\"><option value=1>Hi</option></select>\n",
+is(Foo->to_field("bar"), "<select name=\"bar\"><option value=\"1\">Hi</option></select>\n",
     "Select OK");
 
 my $x = bless({id => 1, bar => Bar->retrieve_all(), baz => "Hello there"}, "Foo");
-my %cgi = ( id => '<input name="id" type="text" value=1>
+my %cgi = ( id => '<input name="id" type="text" value="1" />
 ',
-    bar => '<select name="bar"><option selected value=1>Hi</option></select>
+    bar => '<select name="bar"><option selected value="1">Hi</option></select>
 ',
-            baz => '<input name="baz" type="text" value="Hello there">
+            baz => '<input name="baz" type="text" value="Hello there" />
 '
           );
 is_deeply({$x->to_cgi}, \%cgi, "All correct as an object method");


Index: perl-Class-DBI-AsForm.spec
===================================================================
RCS file: /cvs/extras/rpms/perl-Class-DBI-AsForm/devel/perl-Class-DBI-AsForm.spec,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- perl-Class-DBI-AsForm.spec	15 Sep 2006 01:37:18 -0000	1.4
+++ perl-Class-DBI-AsForm.spec	15 Sep 2006 02:00:27 -0000	1.5
@@ -1,6 +1,6 @@
 Name:           perl-Class-DBI-AsForm
 Version:        2.42
-Release:        3%{?dist}
+Release:        4%{?dist}
 Summary:        Produce HTML form elements for database columns
 Group:          Development/Libraries
 License:        GPL or Artistic
@@ -13,12 +13,14 @@
 BuildRequires:  perl(DBD::SQLite), perl(Test::Pod), perl(Test::Pod::Coverage)
 Requires:  perl(Class::DBI)
 Requires:  perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+Patch0:		perl-Class-DBI-AsForm-fix01test.patch
 
 %description
 %{summary}.
 
 %prep
 %setup -q -n Class-DBI-AsForm-%{version}
+%patch0 -p1
 perldoc -t perlartistic > Artistic
 perldoc -t perlgpl > COPYING
  
@@ -48,6 +50,9 @@
 
 
 %changelog
+* Thu Sep 14 2006 Tom "spot" Callaway <tcallawa at redhat.com> 2.42-4
+- fix broken test
+
 * Thu Sep 14 2006 Tom "spot" Callaway <tcallawa at redhat.com> 2.42-3
 - fix missing BR