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	#!/usr/bin/perl -w
2
3	use strict;
4	use Test::More tests => 39;
5	use blib;
6	use Catalyst::Test 'Webpacus';
7
8	# test some URIs
9
10	my $test_site = 'hr';
11
12	foreach my $url (qw#
13	/
14	/search
15	/search/results
16	/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	/search/suggest
22	/search/suggest/TitleProper?all=a
23	/editor
24	/editor/template
25	/editor/css
26	#) {
27	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	}
41