Working, no functionality yet

[catagits/Catalyst-TraitFor-Request-ProxyBase.git] / t / live-test.t

diff --git a/t/live-test.t b/t/live-test.t
index 88a3380..b1f664d 100644 (file)
--- a/t/live-test.t
+++ b/t/live-test.t
@@ -2,18 +2,17 @@
 
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 1;
 
 # setup library path
 use FindBin qw($Bin);
 use lib "$Bin/lib";
 
-# make sure testapp works
-use ok 'TestApp';
+use TestApp;
 
 # a live test against TestApp, the test application
-use Test::WWW::Mechanize::Catalyst 'TestApp';
-my $mech = Test::WWW::Mechanize::Catalyst->new;
-$mech->get_ok('http://localhost/', 'get main page');
-$mech->content_like(qr/it works/i, 'see if it has our text');
+use Catalyst::Test 'TestApp';
+
+my ($res, $c) = ctx_request('/');
+is($c->res->body, 'http://localhost/');