[Bromley] Update pin colours.

From FD-4899.

perllib/FixMyStreet/Cobrand/Bromley.pm

@@ -105,7 +105,9 @@ sub geocode_postcode {
 # Bromley pins always yellow
 sub pin_colour {
     my ( $self, $p, $context ) = @_;
-    return 'grey' if ($context||'') ne 'reports' && !$self->owns_problem($p);
+    return 'green-bromley' if $p->is_fixed;
+    return 'grey' if $p->is_closed;
+    return 'red' if ($context||'') ne 'reports' && !$self->owns_problem($p);
     return 'yellow';
 }
 

t/cobrand/bromley.t

@@ -361,7 +361,7 @@ subtest 'check display of TfL reports' => sub {
     }, sub {
         $mech->follow_link_ok({ text_regex => qr/Back to all reports/i });
     };
-    $mech->content_like(qr{<a title="TfL Test[^>]*www.example.org[^>]*><img[^>]*grey});
+    $mech->content_like(qr{<a title="TfL Test[^>]*www.example.org[^>]*><img[^>]*red});
     $mech->content_like(qr{<a title="Test Test[^>]*href="/[^>]*><img[^>]*yellow});
 };
 

t/cobrand/bromley_waste.t

@@ -190,7 +190,7 @@ $report->update({ category => 'Other' });
     }, sub {
         $mech->follow_link_ok({ text_regex => qr/Back to all reports/i });
     };
-    $mech->content_like(qr{<a title="Test Test[^>]*href="/[^>]*><img[^>]*yellow});
+    $mech->content_like(qr{<a title="Test Test[^>]*href="/[^>]*><img[^>]*grey});
     $mech->content_lacks('Report missed collection');
 };