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	dpavlin	155	#!/usr/bin/perl -w
2
3	dpavlin	165	use Test::More tests => 9;
4	dpavlin	155	use blib;
5	dpavlin	83	use_ok( Catalyst::Test, 'Webpacus' );
6
7	dpavlin	165	# test some URIs
8	dpavlin	155
9	dpavlin	165	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			}