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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use FixMyStreet;
use FixMyStreet::TestMech;
my $user = FixMyStreet::App->model('DB::User')->find_or_create( { email => 'test@example.com' } );
my $problem = FixMyStreet::App->model('DB::Problem')->create(
{
postcode => 'EH99 1SP',
latitude => 1,
longitude => 1,
areas => 1,
title => 'to be sent',
detail => 'detail',
used_map => 1,
user_id => 1,
name => 'A Name',
state => 'confirmed',
service => '',
cobrand => 'default',
cobrand_data => '',
confirmed => \"ms_current_timestamp() - '5 weeks'::interval",
whensent => \"ms_current_timestamp() - '5 weeks'::interval",
user => $user,
anonymous => 0,
}
);
my $mech = FixMyStreet::TestMech->new;
for my $test (
{
state => 'unconfirmed',
send_email => 0,
},
{
state => 'partial',
send_email => 0,
},
{
state => 'hidden',
send_email => 0,
},
{
state => 'confirmed',
send_email => 1,
},
{
state => 'investigating',
send_email => 1,
},
{
state => 'planned',
send_email => 1,
},
{
state => 'action scheduled',
send_email => 1,
},
{
state => 'in progress',
send_email => 1,
},
{
state => 'fixed',
send_email => 1,
},
{
state => 'fixed - council',
send_email => 1,
},
{
state => 'fixed - user',
send_email => 1,
},
{
state => 'duplicate',
send_email => 1,
},
{
state => 'unable to fix',
send_email => 1,
},
{
state => 'not responsible',
send_email => 1,
},
{
state => 'closed',
send_email => 1,
},
) {
subtest "correct questionnaire behviour for state $test->{state}" => sub {
$problem->discard_changes;
$problem->state( $test->{state} );
$problem->send_questionnaire( 1 );
$problem->update;
$problem->questionnaires->delete;
$mech->email_count_is(0);
FixMyStreet::App->model('DB::Questionnaire')
->send_questionnaires( { site => 'fixmystreet' } );
$mech->email_count_is( $test->{send_email} );
$mech->clear_emails_ok();
}
}
$mech->delete_user( $user );
done_testing();
|
