Webpacus/t/01app.t

#!/usr/bin/perl -w

use strict;
use Test::More tests => 39;
use blib;
use Catalyst::Test 'Webpacus';

# test some URIs

my $test_site = 'hr';

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( my $default = get( $url ), "get $url");
        my $site_url = "/$test_site/$url";
        $site_url =~ s#//+#/#g;
        ok( my $sites = get( $site_url ), "get $site_url" );

        # normalize site html for comparison
        $sites =~ s#/\Q$test_site\E/#/#gs;

        my $op = 'ne';
        # part which doesn't change depending on site
        $op = 'eq' if ($url =~ m#^/(editor|search/suggest)#);

        cmp_ok( $default, $op, $sites, "site content $url $op $site_url");
}

1	dpavlin	155	#!/usr/bin/perl -w
2
3	dpavlin	359	use strict;
4			use Test::More tests => 39;
5	dpavlin	155	use blib;
6	dpavlin	359	use Catalyst::Test 'Webpacus';
7	dpavlin	83
8	dpavlin	165	# test some URIs
9	dpavlin	155
10	dpavlin	359	my $test_site = 'hr';
11
12	dpavlin	165	foreach my $url (qw#
13			/
14			/search
15			/search/results
16	dpavlin	271	/search/results/ajax
17			/search/results?all=a
18			/search/results/ajax?all=a
19			/search/results?all=a&_ajax=1
20			/search/results/ajax?all=a&_ajax=1
21	dpavlin	165	/search/suggest
22			/search/suggest/TitleProper?all=a
23			/editor
24			/editor/template
25			/editor/css
26			#) {
27	dpavlin	359	ok( my $default = get( $url ), "get $url");
28			my $site_url = "/$test_site/$url";
29			$site_url =~ s#//+#/#g;
30			ok( my $sites = get( $site_url ), "get $site_url" );
31
32			# normalize site html for comparison
33			$sites =~ s#/\Q$test_site\E/#/#gs;
34
35			my $op = 'ne';
36			# part which doesn't change depending on site
37			$op = 'eq' if ($url =~ m#^/(editor\|search/suggest)#);
38
39			cmp_ok( $default, $op, $sites, "site content $url $op $site_url");
40	dpavlin	165	}
41	dpavlin	358