[Catalyst-commits] r12872 - in trunk/Catalyst-Plugin-FormValidator: lib/Catalyst/Plugin t

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-02-15 21:15:03 +0000 (Mon, 15 Feb 2010)
New Revision: 12872

Added:
   trunk/Catalyst-Plugin-FormValidator/t/04basic.t
Modified:
   trunk/Catalyst-Plugin-FormValidator/lib/Catalyst/Plugin/FormValidator.pm
Log:
oops, added 04basic.t and removed form method as form accessor does this already

Modified: trunk/Catalyst-Plugin-FormValidator/lib/Catalyst/Plugin/FormValidator.pm
===================================================================
--- trunk/Catalyst-Plugin-FormValidator/lib/Catalyst/Plugin/FormValidator.pm	2010-02-15 21:13:31 UTC (rev 12871)
+++ trunk/Catalyst-Plugin-FormValidator/lib/Catalyst/Plugin/FormValidator.pm	2010-02-15 21:15:03 UTC (rev 12872)
@@ -60,15 +60,6 @@
 
 =cut
 
-  sub form {
-    my $c = shift;
-    if ( $_[0] ) {
-        my $form = $_[1] ? {@_} : $_[0];
-        $c->{form} =
-          Data::FormValidator->check( $c->request->parameters, $form );
-    }
-    return $c->{form};
-}
 
 =head1 SEE ALSO
 

Added: trunk/Catalyst-Plugin-FormValidator/t/04basic.t
===================================================================
--- trunk/Catalyst-Plugin-FormValidator/t/04basic.t	                        (rev 0)
+++ trunk/Catalyst-Plugin-FormValidator/t/04basic.t	2010-02-15 21:15:03 UTC (rev 12872)
@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use HTTP::Request::Common;
+use_ok('Catalyst::Test', 'TestApp');
+my $response;
+ok( ($response = request("/form_test"))->is_success, 'initial request ok');
+
+done_testing;
\ No newline at end of file