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	#!/usr/bin/perl -w
2
3	use Test::More tests => 6;
4	use blib;
5	use_ok( Catalyst::Test, 'Webpacus' );
6
7	ok( request('/')->is_success );
8
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 );