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
|
use strict;
use warnings;
use Test::More;
use FixMyStreet::TestMech;
use FixMyStreet::DB;
my $mech = FixMyStreet::TestMech->new();
my @problems = $mech->create_problems_for_body(1, 2237, 'Title');
my $problem = $problems[0];
my $user = $problem->user;
my $user2 = $mech->create_user_ok('other@example.net');
is $user->active_planned_reports, 0;
is $user->planned_reports, 0;
$user->add_to_planned_reports($problem);
is $user->active_planned_reports, 1;
is $user->planned_reports, 1;
$user->add_to_planned_reports($problem);
is $user->active_planned_reports, 1;
is $user->planned_reports, 1;
$user->remove_from_planned_reports($problem);
is $user->active_planned_reports, 0;
is $user->planned_reports, 1;
$user->add_to_planned_reports($problem);
is $user->active_planned_reports, 1;
is $user->planned_reports, 2;
$user2->add_to_planned_reports($problem);
is $user->active_planned_reports, 0;
is $user->planned_reports, 2;
is $user2->active_planned_reports, 1;
is $user2->planned_reports, 1;
$user->add_to_planned_reports($problem);
is $user->active_planned_reports, 1;
is $user->planned_reports, 3;
is $user2->active_planned_reports, 0;
is $user2->planned_reports, 1;
done_testing();
END {
$mech->delete_user($user);
$mech->delete_user($user2);
}
|
