1 use Test::More tests => 6;
3 use WWW::CSRF qw(check_csrf_token);
5 is(check_csrf_token("id", "secret",
6 "5df5e9f17c929a45af5d33624ec052903599958f," .
7 "112233445566778899aabbccddeeff0011223344," .
10 "check simple token");
12 is(check_csrf_token("id", "secret",
13 "0000000000000000000000000000000000000000," .
14 "112233445566778899aabbccddeeff0011223344," .
16 WWW::CSRF::CSRF_INVALID_SIGNATURE,
17 "check simple invalid token");
19 is(check_csrf_token("id", "secret",
20 "5df5e9f17c929a45af5d33624ec052903599958f," .
21 "112233445566778899aabbccddeeff0011223344"),
22 WWW::CSRF::CSRF_MALFORMED_TOKEN,
23 "check simple malformed token");
25 is(check_csrf_token("id", "secret",
26 "5df5e9f17c929a45af5d33624ec052903599958f," .
27 "112233445566778899aabbccddeeff0011223344," .
35 is(check_csrf_token("id", "secret",
36 "5df5e9f17c929a45af5d33624ec052903599958f," .
37 "112233445566778899aabbccddeeff0011223344," .
42 WWW::CSRF::CSRF_EXPIRED,
43 "check expired with maxage");
45 is(check_csrf_token("id", "secret",
46 "5df5e9f17c929a45af5d33624ec052903599958f," .
47 "112233445566778899aabbccddeeff0011223344," .
52 WWW::CSRF::CSRF_INVALID_SIGNATURE,
53 "check falsified timestamp");