diff options
| author | dakkar <dakkar@thenautilus.net> | 2014-12-21 10:32:10 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2014-12-21 10:32:10 +0000 |
| commit | dbb5a16516c7450f25e552e384fea518aeb1239d (patch) | |
| tree | 04df2af84f0d536334ffa3caf82cda7d2e4adb99 | |
| parent | move "readme" tests in own subtest (diff) | |
| download | net-hawk-dbb5a16516c7450f25e552e384fea518aeb1239d.tar.gz net-hawk-dbb5a16516c7450f25e552e384fea518aeb1239d.tar.bz2 net-hawk-dbb5a16516c7450f25e552e384fea518aeb1239d.zip | |
more client tests
| -rw-r--r-- | t/tests/Net/Hawk/Client.t | 20 |
1 files changed, 20 insertions, 0 deletions
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(); |