Webpacus/t/01app.t

#!/usr/bin/perl -w

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

# test some URIs

foreach my $url (qw#
        /
        /search
        /search/results
        /search/results/ajax
        /search/results?all=a
        /search/results/ajax?all=a
        /search/results?all=a&_ajax=1
        /search/results/ajax?all=a&_ajax=1
        /search/suggest
        /search/suggest/TitleProper?all=a
        /editor
        /editor/template
        /editor/css
#) {
        ok( request( $url )->is_success, "$url" );
}

ok( my $default = get( '/search' ), "/search");
ok( my $sites = get( '/hr/search' ), "/hr/search");
cmp_ok( $default, 'ne', $sites, 'sites');
1	dpavlin	155	#!/usr/bin/perl -w
2
3	dpavlin	358	use Test::More tests => 17;
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	dpavlin	271	/search/results/ajax
14			/search/results?all=a
15			/search/results/ajax?all=a
16			/search/results?all=a&_ajax=1
17			/search/results/ajax?all=a&_ajax=1
18	dpavlin	165	/search/suggest
19			/search/suggest/TitleProper?all=a
20			/editor
21			/editor/template
22			/editor/css
23			#) {
24			ok( request( $url )->is_success, "$url" );
25			}
26	dpavlin	358
27			ok( my $default = get( '/search' ), "/search");
28			ok( my $sites = get( '/hr/search' ), "/hr/search");
29			cmp_ok( $default, 'ne', $sites, 'sites');