From dbb5a16516c7450f25e552e384fea518aeb1239d Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 21 Dec 2014 10:32:10 +0000 Subject: more client tests --- t/tests/Net/Hawk/Client.t | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/t/tests/Net/Hawk/Client.t b/t/tests/Net/Hawk/Client.t index 320de94..5320178 100644 --- a/t/tests/Net/Hawk/Client.t +++ b/t/tests/Net/Hawk/Client.t @@ -97,6 +97,26 @@ subtest header => sub { 'Hawk id="123456", ts="1353809207", nonce="Ygvqdz", hash="2QfCt3GuY9HQnHWyWD3wX68ZOKbynqlfYmuO2ZBRqtY=", mac="HTgtd0jPI6E4izx8e4OHdO36q00xFCU0FolNq3RiCYs="', 'valid authorization header (null ext)', ); + + $args{payload}=''; + $header = $c->header($uri_s,POST => \%args); + is( + $header->{field}, + 'Hawk id="123456", ts="1353809207", nonce="Ygvqdz", hash="q/t+NNAkQZNlq/aAD6PlexImwQTxwgT2MahfTa9XRLA=", mac="U5k16YEzn3UnBHKeBzsDXn067Gu3R4YaY6xOt9PYRZM="', + 'valid authorization header (empty payload)', + ); + + $args{hash} = $c->_crypto->calculate_payload_hash( + 'something to write about', + $args{credentials}{algorithm}, + $args{content_type}, + ); + $header = $c->header($uri_s,POST => \%args); + is( + $header->{field}, + 'Hawk id="123456", ts="1353809207", nonce="Ygvqdz", hash="2QfCt3GuY9HQnHWyWD3wX68ZOKbynqlfYmuO2ZBRqtY=", mac="HTgtd0jPI6E4izx8e4OHdO36q00xFCU0FolNq3RiCYs="', + 'valid authorization header (pre hashed payload)', + ); }; done_testing(); -- cgit v1.2.3