1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use FixMyStreet::Test;
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';
my $verpid = FixMyStreet::Email::unique_verp_id([ "report", 123 ]);
is $verpid, 'fms-report-123-8fb274c6@example.org', 'VERP id okay';
$verpid = FixMyStreet::Email::unique_verp_id([ "report", 123 ], "example.net");
is $verpid, 'fms-report-123-8fb274c6@example.net', 'VERP id okay with custom domain';
done_testing();
|
