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

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-02-15 22:04:37 +0000 (Mon, 15 Feb 2010)
New Revision: 12879

Modified:
   Catalyst-Plugin-FormValidator/trunk/t/04basic.t
Log:
HTTP::Request::Common loves me again

Modified: Catalyst-Plugin-FormValidator/trunk/t/04basic.t
===================================================================
--- Catalyst-Plugin-FormValidator/trunk/t/04basic.t	2010-02-15 21:45:39 UTC (rev 12878)
+++ Catalyst-Plugin-FormValidator/trunk/t/04basic.t	2010-02-15 22:04:37 UTC (rev 12879)
@@ -1,11 +1,15 @@
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use Test::More;
+use HTTP::Request::Common;
 use FindBin;
 use lib "$FindBin::Bin/lib";
-use_ok('Catalyst::Test', 'TestApp');
+use HTTP::Request::Common;
+BEGIN { use_ok 'Catalyst::Test','TestApp' }
 
-ok(request("/form_test")->is_success, "got initial url");
+my $response = request GET "/form_test";
+ok( $response->is_success, "got initial url");
 
 
 done_testing;
\ No newline at end of file