diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2016-02-02 17:47:18 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2016-02-23 13:11:37 +0000 |
| commit | 28144f5153a0a7f7bad9466c883bd5c147568028 (patch) | |
| tree | ed205b75e336fa53d4f622451d3209cfcae31915 /t/email.t | |
| parent | 06b8a48093a0ce395ea6824e6b00afec444447c3 (diff) | |
Better handle replies to bounce addresses.
Auto unsubscribe alert bounces, forward on report bounces and alert
replies to support, and send through to report creator non-bounce
replies to their report (for systems that ignore both the From and
Reply-To headers).
Also forward any totally unparsed bounce to support to possibly then
adjust this bounce handling.
Diffstat (limited to 't/email.t')
| -rw-r--r-- | t/email.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/email.t b/t/email.t new file mode 100644 index 000000000..40a650da5 --- /dev/null +++ b/t/email.t @@ -0,0 +1,20 @@ +use strict; +use warnings; + +use Test::More; +use FixMyStreet::Email; + +my $secret = FixMyStreet::DB->resultset('Secret')->update({ + secret => 'abcdef123456' }); + +my $hash = FixMyStreet::Email::hash_from_id("report", 123); +is $hash, '8fb274c6', 'Hash generation okay'; + +my $token = FixMyStreet::Email::generate_verp_token("report", 123); +is $token, "report-123-8fb274c6", 'Token generation okay'; + +my ($type, $id) = FixMyStreet::Email::check_verp_token($token); +is $type, "report", 'Correct type from token'; +is $id, 123, 'Correct ID from token'; + +done_testing(); |