Webpacus/t/01app.t

#!/usr/bin/perl -w

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

# test some URIs

foreach my $url (qw#
        /
        /search
        /search/results
        /search/suggest
        /search/suggest/TitleProper?all=a
        /editor
        /editor/template
        /editor/css
#) {
        ok( request( $url )->is_success, "$url" );
}
1	#!/usr/bin/perl -w
2
3	use Test::More tests => 9;
4	use blib;
5	use_ok( Catalyst::Test, 'Webpacus' );
6
7	# test some URIs
8
9	foreach my $url (qw#
10	/
11	/search
12	/search/results
13	/search/suggest
14	/search/suggest/TitleProper?all=a
15	/editor
16	/editor/template
17	/editor/css
18	#) {
19	ok( request( $url )->is_success, "$url" );
20	}