From ae91140cf2604bfc4f9330c876ba4a6a9a0b18e8 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 27 Dec 2014 14:28:17 +0000
Subject: porting to Perl 6!

---
 t/tests/Net/Hawk/Utils.t | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 t/tests/Net/Hawk/Utils.t

(limited to 't')

diff --git a/t/tests/Net/Hawk/Utils.t b/t/tests/Net/Hawk/Utils.t
new file mode 100644
index 0000000..126450e
--- /dev/null
+++ b/t/tests/Net/Hawk/Utils.t
@@ -0,0 +1,30 @@
+#!perl6
+use v6;
+use Test;
+use Net::Hawk::Utils;
+
+subtest {
+    is(parse_content_type(Str),'','undef -> empty string');
+    is(parse_content_type('text/plain'),'text/plain','simple');
+    is(parse_content_type('text/plain; charset=utf-8'),'text/plain','ignore options');
+};
+
+subtest {
+    throws_like { parse_authorization_header(Str) },
+        Net::Hawk::Errors::UnAuthorized,
+          text => 'no header';
+
+    throws_like { parse_authorization_header('bad') },
+        Net::Hawk::Errors::BadRequest,
+          text => 'invalid header syntax';
+
+    throws_like { parse_authorization_header('hawk: bad') },
+        Net::Hawk::Errors::BadRequest,
+          text => 'Bad header format';
+
+    is_deeply( parse_authorization_header('hawk: id="1"'),
+               { id => '1' },
+               'ok parse');
+};
+
+done;
-- 
cgit v1.2.3