From d40015505a6b61001d8e175b6d099ab32a9d3ed1 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 20 Dec 2014 15:27:51 +0000
Subject: more crypto tests

---
 t/tests/Net/Hawk/Crypto.t | 48 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/t/tests/Net/Hawk/Crypto.t b/t/tests/Net/Hawk/Crypto.t
index eb1a52f..58e263f 100644
--- a/t/tests/Net/Hawk/Crypto.t
+++ b/t/tests/Net/Hawk/Crypto.t
@@ -70,4 +70,52 @@ subtest POST => sub {
     );
 };
 
+subtest normalized_string => sub {
+    my %args = (
+        credentials => {
+            key => 'dasdfasdf',
+            algorithm => 'sha256',
+        },
+        ts => 1357747017,
+        nonce => 'k3k4j5',
+        method => 'GET',
+        resource => '/resource/something',
+        host => 'example.com',
+        port =>8080
+    );
+    my $string = $c->generate_normalized_string(
+        header => \%args,
+    );
+    is(
+        $string,
+        "hawk.1.header\n1357747017\nk3k4j5\nGET\n/resource/something\nexample.com\n8080\n\n\n",
+        'valid normalized string',
+    );
+
+    $string = $c->generate_normalized_string(
+        header => {
+            %args,
+            ext => 'this is some app data',
+        },
+    );
+    is(
+        $string,
+        "hawk.1.header\n1357747017\nk3k4j5\nGET\n/resource/something\nexample.com\n8080\n\nthis is some app data\n",
+        'valid normalized string (ext)',
+    );
+
+    $string = $c->generate_normalized_string(
+        header => {
+            %args,
+            ext => 'this is some app data',
+            hash => 'U4MKKSmiVxk37JCCrAVIjV/OhB3y+NdwoCr6RShbVkE=',
+        },
+    );
+    is(
+        $string,
+        "hawk.1.header\n1357747017\nk3k4j5\nGET\n/resource/something\nexample.com\n8080\nU4MKKSmiVxk37JCCrAVIjV/OhB3y+NdwoCr6RShbVkE=\nthis is some app data\n",
+        'valid normalized string (payload + ext)',
+    );
+};
+
 done_testing;
-- 
cgit v1.2.3