aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStruan Donald <struan@exo.org.uk>2011-05-13 17:07:46 +0100
committerStruan Donald <struan@exo.org.uk>2011-05-13 17:07:46 +0100
commitb683026c94f15f6f4b5214820b1446a8ef684658 (patch)
tree1d62a70d4f7fa0dc7acebcb3c761965bf9f65e5d
parentc4e98cdb370e0968fe1a207fe3634539324cad2e (diff)
placeholder for email sending code
-rw-r--r--perllib/FixMyStreet/App/Controller/Contact.pm13
-rw-r--r--t/app/controller/contact.t18
2 files changed, 30 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Contact.pm b/perllib/FixMyStreet/App/Controller/Contact.pm
index 980636fd0..030f69cc2 100644
--- a/perllib/FixMyStreet/App/Controller/Contact.pm
+++ b/perllib/FixMyStreet/App/Controller/Contact.pm
@@ -75,7 +75,8 @@ sub submit : Path('submit') : Args(0) {
return
unless $c->forward('setup_request')
&& $c->forward('validate')
- && $c->forward('prepare_params_for_email');
+ && $c->forward('prepare_params_for_email')
+ && $c->forward('send_email');
}
sub determine_contact_type : Private {
@@ -149,6 +150,8 @@ sub validate : Private {
$c->stash->{field_errors} = \%field_errors;
$c->go('index');
}
+
+ return 1;
}
sub prepare_params_for_email : Private {
@@ -204,6 +207,14 @@ sub setup_request : Private {
return 1;
}
+sub send_email : Private {
+ my ( $self, $c ) = @_;
+
+ $c->stash->{success} = 1;
+
+ return 1;
+}
+
=head1 AUTHOR
Struan Donald
diff --git a/t/app/controller/contact.t b/t/app/controller/contact.t
index a5135c60a..c4bf83613 100644
--- a/t/app/controller/contact.t
+++ b/t/app/controller/contact.t
@@ -145,4 +145,22 @@ for my $test (
};
}
+for my $test (
+ {
+ fields => {
+ em => 'test@example.com',
+ name => 'A name',
+ subject => 'A subject',
+ message => 'A message',
+ },
+ },
+
+ )
+{
+ subtest 'check email sent correctly' => sub {
+ $mech->get_ok('/contact');
+ $mech->submit_form_ok( { with_fields => $test->{fields} } );
+ $mech->content_contains('Thanks for your feedback');
+ };
+}
done_testing();