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	#!/usr/bin/perl -w
2
3	use Test::More tests => 17;
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/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	/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
27	ok( my $default = get( '/search' ), "/search");
28	ok( my $sites = get( '/hr/search' ), "/hr/search");
29	cmp_ok( $default, 'ne', $sites, 'sites');