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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
use mySociety::Locale;
use FixMyStreet::Script::Reports;
use FixMyStreet::TestMech;
my $mech = FixMyStreet::TestMech->new;
use t::Mock::Nominatim;
# Front page test
ok $mech->host("www.fixamingata.se"), "change host to FixaMinGata";
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixamingata' ],
}, sub {
$mech->get_ok('/');
};
$mech->content_like( qr/FixaMinGata/ );
my $body = $mech->create_body_ok( 1, 'Body' );
$mech->create_contact_ok(
body => $body,
category => "Other",
email => "other\@example.org",
);
my @reports = $mech->create_problems_for_body( 1, $body->id, 'Test', {
cobrand => 'fixamingata',
latitude => '55.605833',
longitude => '13.035833',
});
my $report = $reports[0];
$mech->get_ok( '/report/' . $report->id );
$mech->email_count_is(0);
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixamingata' ],
}, sub {
FixMyStreet::Script::Reports::send();
};
my $email = $mech->get_email;
my $plain = $mech->get_text_body_from_email($email, 1);
like $plain->header('Content-Type'), qr/utf-8/, 'encoding looks okay';
like $email->header('Subject'), qr/Ny rapport: Test Test/, 'subject looks okay';
like $email->header('To'), qr/other\@example.org/, 'to line looks correct';
like $plain->body_str, qr/V\xe4nligen,/, 'signature looks correct';
$mech->clear_emails_ok;
my $user =
FixMyStreet::DB->resultset('User')
->find_or_create( { email => 'test@example.com', name => 'Test User' } );
ok $user, "created test user";
my $user2 =
FixMyStreet::DB->resultset('User')
->find_or_create( { email => 'commenter@example.com', name => 'Commenter' } );
ok $user2, "created comment user";
my $comment = FixMyStreet::DB->resultset('Comment')->find_or_create({
problem_id => $report->id,
user_id => $user2->id,
name => 'Other User',
mark_fixed => 'false',
text => 'This is some update text',
state => 'confirmed',
anonymous => 'f',
});
$comment->confirmed( \"current_timestamp - '3 days'::interval" );
$comment->update;
my $alert = FixMyStreet::DB->resultset('Alert')->find_or_create({
user => $user,
parameter => $report->id,
alert_type => 'new_updates',
whensubscribed => '2014-01-01 10:00:00',
confirmed => 1,
cobrand => 'fixamingata',
});
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixamingata' ],
}, sub {
FixMyStreet::DB->resultset('AlertType')->email_alerts();
};
$email = $mech->get_email;
$plain = $mech->get_text_body_from_email($email, 1);
like $plain->header('Content-Type'), qr/utf-8/, 'encoding looks okay';
like $plain->body_str, qr/V\xe4nligen,/, 'signature looks correct';
$mech->clear_emails_ok;
subtest "Test ajax decimal points" => sub {
# The following line is so we are definitely not in Swedish before
# requesting the page, so that the code performs a full switch to Swedish
mySociety::Locale::push('en-gb');
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixamingata' ],
MAPIT_URL => 'http://mapit.uk/'
}, sub {
$mech->get_ok('/ajax/lookup_location?term=12345');
# We want an actual decimal point in a JSON response...
$mech->content_contains('51.5');
$mech->get_ok('/ajax/lookup_location?term=high+street');
$mech->content_contains("Ed\xc3\xadnburgh");
};
};
subtest "check user details always shown" => sub {
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'fixamingata' ],
}, sub {
$user2->update({ from_body => $body });
$mech->get_ok('/report/' . $report->id);
my $update_meta = $mech->extract_update_metas;
like $update_meta->[0], qr/Body \(Commenter\) /;
$user2->update({ from_body => undef });
};
};
END {
ok $mech->host("www.fixmystreet.com"), "change host back";
done_testing();
}
|
