--- Webpacus/t/01app.t 2005/11/26 01:54:37 154 +++ Webpacus/t/01app.t 2005/11/26 01:54:42 155 @@ -1,4 +1,15 @@ -use Test::More tests => 2; +#!/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 );