diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/cobrand/tfl.t | 110 |
1 files changed, 110 insertions, 0 deletions
diff --git a/t/cobrand/tfl.t b/t/cobrand/tfl.t new file mode 100644 index 000000000..3e1e851bf --- /dev/null +++ b/t/cobrand/tfl.t @@ -0,0 +1,110 @@ +use FixMyStreet::TestMech; +use FixMyStreet::App; +use FixMyStreet::Script::Reports; + +# disable info logs for this test run +FixMyStreet::App->log->disable('info'); +END { FixMyStreet::App->log->enable('info'); } + +my $mech = FixMyStreet::TestMech->new; + +my $body = $mech->create_body_ok(2482, 'TfL'); +my $staffuser = $mech->create_user_ok('counciluser@example.com', name => 'Council User', from_body => $body); +$staffuser->user_body_permissions->create({ + body => $body, + permission_type => 'contribute_as_body', +}); +$staffuser->user_body_permissions->create({ + body => $body, + permission_type => 'default_to_body', +}); +my $user = $mech->create_user_ok('londonresident@example.com'); + + +my $contact1 = $mech->create_contact_ok( + body_id => $body->id, + category => 'Bus stops', + email => 'busstops@example.com', +); +my $contact2 = $mech->create_contact_ok( + body_id => $body->id, + category => 'Traffic lights', + email => 'trafficlights@example.com', +); + +FixMyStreet::override_config { + ALLOWED_COBRANDS => 'tfl', + MAPIT_URL => 'http://mapit.uk/' +}, sub { + +subtest "test report creation and reference number" => sub { + $mech->log_in_ok( $user->email ); + $mech->get_ok('/around'); + $mech->submit_form_ok( { with_fields => { pc => 'BR1 3UH', } }, "submit location" ); + $mech->follow_link_ok( { text_regex => qr/skip this step/i, }, "follow 'skip this step' link" ); + $mech->submit_form_ok( + { + with_fields => { + title => 'Test Report 1', + detail => 'Test report details.', + name => 'Joe Bloggs', + may_show_name => '1', + category => 'Bus stops', + } + }, + "submit good details" + ); + + my $report = FixMyStreet::DB->resultset("Problem")->find({ title => 'Test Report 1'}); + ok $report, "Found the report"; + + $mech->content_contains('Your issue is on its way to Transport for London'); + $mech->content_contains('Your reference for this report is FMS' . $report->id) or diag $mech->content; + + is_deeply $mech->page_errors, [], "check there were no errors"; + + is $report->state, 'confirmed', "report confirmed"; + + is $report->bodies_str, $body->id; + is $report->name, 'Joe Bloggs'; + + $mech->log_out_ok; +}; + +subtest "reference number included in email" => sub { + my $report = FixMyStreet::DB->resultset("Problem")->find({ title => 'Test Report 1'}); + my $id = $report->id; + + $mech->clear_emails_ok; + FixMyStreet::Script::Reports::send(); + my @email = $mech->get_email; + is $email[0]->header('To'), 'TfL <busstops@example.com>'; + like $mech->get_text_body_from_email($email[0]), qr/Report reference: FMS$id/, "FMS-prefixed ID in TfL email"; + + $mech->get_ok( '/report/' . $report->id ); + $mech->content_contains('FMS' . $report->id) or diag $mech->content; +}; + +subtest 'check lookup by reference' => sub { + my $id = FixMyStreet::DB->resultset("Problem")->first->id; + + $mech->get_ok('/'); + $mech->submit_form_ok( { with_fields => { pc => 'FMS12345' } }, 'bad ref'); + $mech->content_contains('Searching found no reports'); + + $mech->get_ok('/'); + $mech->submit_form_ok( { with_fields => { pc => "FMS$id" } }, 'good FMS-prefixed ref'); + is $mech->uri->path, "/report/$id", "redirected to report page when using FMS-prefixed ref"; + + $mech->get_ok('/'); + $mech->submit_form_ok( { with_fields => { pc => "fms $id" } }, 'good FMS-prefixed with a space ref'); + is $mech->uri->path, "/report/$id", "redirected to report page when using FMS-prefixed ref"; + + $mech->get_ok('/'); + $mech->submit_form_ok( { with_fields => { pc => "$id" } }, 'good ref'); + is $mech->uri->path, "/report/$id", "redirected to report page when using non-prefixed ref"; +}; + +}; + +done_testing(); |