From c38481cb9f06bf85e29b7676370468d56cdc858a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 28 Dec 2014 17:55:17 +0000
Subject: everything ported to p6

---
 t/tests/Net/Hawk/Client.t | 32 +++++++++++++-------------------
 1 file changed, 13 insertions(+), 19 deletions(-)

(limited to 't')

diff --git a/t/tests/Net/Hawk/Client.t b/t/tests/Net/Hawk/Client.t
index 784b7a0..ca8476d 100644
--- a/t/tests/Net/Hawk/Client.t
+++ b/t/tests/Net/Hawk/Client.t
@@ -117,13 +117,9 @@ subtest {
     );
 };
 
-done;
-
-=begin finish
-
-subtest authenticate => sub {
+subtest {
     ok(
-        ! $c->authenticate([
+        ! Net::Hawk::Client::authenticate([
             'server-authorization' => 'Hawk mac="abc", bad="xyz"',
         ],{}),
         'returns false on invalid header',
@@ -132,14 +128,12 @@ subtest authenticate => sub {
     my %artifacts = (
         method => 'POST',
         host => 'example.com',
-        port => '8080',
+        port => 8080,
         resource => '/resource/4?filter=a',
-        ts => '1362336900',
+        ts => 1362336900,
         nonce => 'eb5S_L',
         hash => 'nJjkVtBE5Y/Bk38Aiokwn0jiJxt/0S2WRSUwWLCf5xk=',
         ext => 'some-app-data',
-        app => undef,
-        dlg => undef,
         mac => 'BlmSe8K+pbKIb6YsZCnt4E1GrYvY1AaYayNR82dGpIk=',
         id => '123456',
     );
@@ -152,41 +146,41 @@ subtest authenticate => sub {
     );
 
     ok(
-        ! $c->authenticate([
+        ! Net::Hawk::Client::authenticate([
             'content-type' => 'text/plain',
             'server-authorization' => 'Hawk mac="_IJRsMl/4oL+nn+vKoeVZPdCHXB4yJkNnBbTbHFZUYE=", hash="f9cDF/TDm7TkYRLnGwRMfeDzT6LixQVLvrIKhh0vgmM=", ext="response-specific"',
-        ],\%credentials,\%artifacts),
+        ],%credentials,%artifacts),
         'returns false on invalid mac',
     );
 
     ok(
-        $c->authenticate([
+        Net::Hawk::Client::authenticate([
             'content-type' => 'text/plain',
             'server-authorization' => 'Hawk mac="XIJRsMl/4oL+nn+vKoeVZPdCHXB4yJkNnBbTbHFZUYE=", hash="f9cDF/TDm7TkYRLnGwRMfeDzT6LixQVLvrIKhh0vgmM=", ext="response-specific"',
-        ],\%credentials,\%artifacts),
+        ],%credentials,%artifacts),
         'returns true on ignoring hash',
     );
 
     ok(
-        ! $c->authenticate([
+        ! Net::Hawk::Client::authenticate([
             'www-authenticate' => 'Hawk ts="1362346425875", tsm="PhwayS28vtnn3qbv0mqRBYSXebN/zggEtucfeZ620Zo=", x="Stale timestamp"',
         ],{}),
         'fails on invalid WWW-Authenticate header format',
     );
 
     ok(
-        ! $c->authenticate([
+        ! Net::Hawk::Client::authenticate([
             'www-authenticate' => 'Hawk ts="1362346425875", tsm="hwayS28vtnn3qbv0mqRBYSXebN/zggEtucfeZ620Zo=", error="Stale timestamp"',
-        ],\%credentials),
+        ],%credentials),
         'fails on invalid WWW-Authenticate header format',
     );
 
     ok(
-        $c->authenticate([
+        Net::Hawk::Client::authenticate([
             'www-authenticate' => 'Hawk error="Stale timestamp"',
         ],{}),
         'skips tsm validation when missing ts',
     );
 };
 
-done_testing();
+done;
-- 
cgit v1.2.3