1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
use strict;
use warnings;
use Test::More;
use Sub::Override;
use FixMyStreet;
use_ok 'FixMyStreet::Cobrand';
# check that the allowed cobrands is correctly loaded from config
sub check_allowed_cobrands {
my $should = shift;
$should = [ map { { moniker => $_, host => $_ } } @$should ];
my $allowed = FixMyStreet::Cobrand->get_allowed_cobrands;
ok $allowed, "got the allowed_cobrands";
isa_ok $allowed, "ARRAY";
is_deeply $allowed, $should, "allowed_cobrands matched";
}
FixMyStreet::override_config { ALLOWED_COBRANDS => 'fixmyhouse' },
sub { check_allowed_cobrands([ 'fixmyhouse' ]); };
FixMyStreet::override_config { ALLOWED_COBRANDS => [ 'fixmyhouse' ] },
sub { check_allowed_cobrands([ 'fixmyhouse' ]); };
FixMyStreet::override_config { ALLOWED_COBRANDS => [ 'fixmyhouse', 'fixmyshed' ] },
sub { check_allowed_cobrands([ 'fixmyhouse', 'fixmyshed' ]); };
sub run_host_tests {
my %host_tests = @_;
for my $host ( sort keys %host_tests ) {
# get the cobrand class by host
my $cobrand = FixMyStreet::Cobrand->get_class_for_host($host);
my $test_class = $host_tests{$host};
my $test_moniker = lc $test_class;
is $cobrand, "FixMyStreet::Cobrand::$test_class", "does $host -> F::C::$test_class";
my $c = $cobrand->new();
is $c->moniker, $test_moniker;
}
}
# Only one cobrand, always use it
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixmystreet' ],
}, sub {
run_host_tests(
'www.fixmystreet.com' => 'FixMyStreet',
'reportemptyhomes.com' => 'FixMyStreet',
'barnet.fixmystreet.com' => 'FixMyStreet',
'some.odd.site.com' => 'FixMyStreet',
);
};
# Only one cobrand, no .pm file, should still work
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'nopmfile' ],
}, sub {
run_host_tests(
'www.fixmystreet.com' => 'nopmfile',
'some.odd.site.com' => 'nopmfile',
);
};
# Couple of cobrands, hostname checking and default fallback
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'emptyhomes', 'fixmystreet' ],
}, sub {
run_host_tests(
'www.fixmystreet.com' => 'FixMyStreet',
'reportemptyhomes.com' => 'EmptyHomes',
'barnet.fixmystreet.com' => 'FixMyStreet', # not in the allowed_cobrands list
'some.odd.site.com' => 'Default',
);
};
# now enable barnet too and check that it works
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'emptyhomes', 'barnet', 'fixmystreet' ],
}, sub {
run_host_tests(
'www.fixmystreet.com' => 'FixMyStreet',
'reportemptyhomes.com' => 'EmptyHomes',
'barnet.fixmystreet.com' => 'Barnet', # found now it is in allowed_cobrands
'some.odd.site.com' => 'Default',
);
};
# And a check with some regex matching
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ { 'fixmystreet' => 'empty' }, 'barnet', { 'testing' => 'fixmystreet' } ],
}, sub {
run_host_tests(
'www.fixmystreet.com' => 'testing',
'reportemptyhomes.com' => 'FixMyStreet',
'barnet.fixmystreet.com' => 'Barnet',
'some.odd.site.com' => 'Default',
);
};
# check that the moniker works as expected both on class and object.
is FixMyStreet::Cobrand::EmptyHomes->moniker, 'emptyhomes',
'class->moniker works';
is FixMyStreet::Cobrand::EmptyHomes->new->moniker, 'emptyhomes',
'object->moniker works';
# check is_default works
ok FixMyStreet::Cobrand::Default->is_default, '::Default is default';
ok !FixMyStreet::Cobrand::EmptyHomes->is_default, '::Emptyhomes is not default';
# all done
done_testing();
|
