[Catalyst-commits] r12877 - Catalyst-Plugin-FormValidator/trunk/t

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-02-15 21:36:52 +0000 (Mon, 15 Feb 2010)
New Revision: 12877

Modified:
   Catalyst-Plugin-FormValidator/trunk/t/04basic.t
Log:
using TWMCatalyst to test forms. Halp me jeebus.

Modified: Catalyst-Plugin-FormValidator/trunk/t/04basic.t
===================================================================
--- Catalyst-Plugin-FormValidator/trunk/t/04basic.t	2010-02-15 21:22:49 UTC (rev 12876)
+++ Catalyst-Plugin-FormValidator/trunk/t/04basic.t	2010-02-15 21:36:52 UTC (rev 12877)
@@ -3,9 +3,10 @@
 use Test::More;
 use FindBin;
 use lib "$FindBin::Bin/lib";
-use HTTP::Request::Common;
+use Test::WWW::Mechanize::Catalyst;
+ my $mech = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'TestApp');
 use_ok('Catalyst::Test', 'TestApp');
-my $response;
-ok( ($response = request("/form_test"))->is_success, 'initial request ok');
 
+$mech->get_ok("/form_test");
+
 done_testing;
\ No newline at end of file