Webpacus/t/01app.t

#!/usr/bin/perl -w

use Test::More tests => 6;
use blib;
use_ok( Catalyst::Test, 'Webpacus' );

ok( request('/')->is_success );

ok( request('/search')->is_success );

ok( request('/search/results')->is_success );

ok( request('/search/suggest')->is_success );

ok( request('/search/suggest/TitleProper?what=foo')->is_success );
1	dpavlin	155	#!/usr/bin/perl -w
2
3			use Test::More tests => 6;
4			use blib;
5	dpavlin	83	use_ok( Catalyst::Test, 'Webpacus' );
6
7			ok( request('/')->is_success );
8	dpavlin	155
9			ok( request('/search')->is_success );
10
11			ok( request('/search/results')->is_success );
12
13			ok( request('/search/suggest')->is_success );
14
15			ok( request('/search/suggest/TitleProper?what=foo')->is_success );