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 isnt(check_csrf_token("id", "secret",
13 "0000000000000000000000000000000000000000," .
14 "112233445566778899aabbccddeeff0011223344," .
17 "check simple invalid token");
19 isnt(check_csrf_token("id", "secret",
20 "5df5e9f17c929a45af5d33624ec052903599958f," .
21 "112233445566778899aabbccddeeff0011223344"),
23 "check simple malformed token");
25 is(check_csrf_token("id", "secret",
26 "5df5e9f17c929a45af5d33624ec052903599958f," .
27 "112233445566778899aabbccddeeff0011223344," .
35 isnt(check_csrf_token("id", "secret",
36 "5df5e9f17c929a45af5d33624ec052903599958f," .
37 "112233445566778899aabbccddeeff0011223344," .
43 "check expired with maxage");
45 isnt(check_csrf_token("id", "secret",
46 "5df5e9f17c929a45af5d33624ec052903599958f," .
47 "112233445566778899aabbccddeeff0011223344," .
53 "check falsified timestamp");