diff options
Diffstat (limited to 't/app')
| -rw-r--r-- | t/app/controller/report_display.t | 49 | ||||
| -rw-r--r-- | t/app/model/problem.t | 44 | ||||
| -rw-r--r-- | t/app/model/questionnaire.t | 106 |
3 files changed, 199 insertions, 0 deletions
diff --git a/t/app/controller/report_display.t b/t/app/controller/report_display.t index 1f857a387..746f68cf6 100644 --- a/t/app/controller/report_display.t +++ b/t/app/controller/report_display.t @@ -119,6 +119,55 @@ subtest "test a good report" => sub { is $update_form->value($_), $fields{$_}, "$_ value" for keys %fields; }; +for my $test ( + { + state => 'confirmed', + display => 1, + }, + { + state => 'investigating', + display => 1, + }, + { + state => 'planned', + display => 1, + }, + { + state => 'in progress', + display => 1, + }, + { + state => 'fixed', + display => 0, + }, + { + state => 'fixed - council', + display => 0, + }, + { + state => 'fixed - user', + display => 0, + }, + { + state => 'will not fix', + display => 0, + }, +) { + subtest "check fixed checkbox display for state $test->{state}" => sub { + $report->state( $test->{state} ); + $report->update; + $mech->get_ok("/report/$report_id"); + + my $update_form = $mech->form_name('updateForm'); + + if ( $test->{display} ) { + ok defined $update_form->find_input('#form_fixed', 'checkbox'), "fixed checkbox display"; + } else { + is $update_form->find_input('#form_fixed', 'checkbox'), undef, "fixed checkbox display"; + } + }; +} + foreach my $meta ( { anonymous => 'f', diff --git a/t/app/model/problem.t b/t/app/model/problem.t index 1b8804fce..5a5eb2520 100644 --- a/t/app/model/problem.t +++ b/t/app/model/problem.t @@ -152,4 +152,48 @@ for my $test ( }; } +for my $test ( + { + state => 'unconfirmed', + is_open => 1, + }, + { + state => 'confirmed', + is_open => 1, + }, + { + state => 'investigating', + is_open => 1, + }, + { + state => 'planned', + is_open => 1, + }, + { + state => 'in progress', + is_open => 1, + }, + { + state => 'fixed', + is_open => 0, + }, + { + state => 'fixed - council', + is_open => 0, + }, + { + state => 'fixed - user', + is_open => 0, + }, + { + state => 'will not fix', + is_open => 0, + }, +) { + subtest $test->{state} . ' is open/closed' => sub { + $problem->state( $test->{state} ); + is $problem->is_open, $test->{is_open}, 'is_open'; + }; +} + done_testing(); diff --git a/t/app/model/questionnaire.t b/t/app/model/questionnaire.t new file mode 100644 index 000000000..2bc8f9b2c --- /dev/null +++ b/t/app/model/questionnaire.t @@ -0,0 +1,106 @@ +#!/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, + } +); + +diag $problem->id; + +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 => 'in progress', + send_email => 1, + }, + { + state => 'fixed', + send_email => 1, + }, + { + state => 'fixed - council', + send_email => 1, + }, + { + state => 'fixed - user', + send_email => 1, + }, + { + state => 'will not fix', + 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(); |