From 6a3b3f916eee0d757bd52a690bc398fe01a1dc9c Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 16 Dec 2017 18:00:36 +0000
Subject: users model

---
 t/tests/model/users.t | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 t/tests/model/users.t

(limited to 't')

diff --git a/t/tests/model/users.t b/t/tests/model/users.t
new file mode 100644
index 0000000..1518831
--- /dev/null
+++ b/t/tests/model/users.t
@@ -0,0 +1,46 @@
+use v6.d.PREVIEW;
+use Test;
+use Ultramarine::Model::Users;
+
+my $u = Ultramarine::Model::Users.new(accounts => { me => 'sesame' });
+
+nok(
+    $u.authenticate(:user<me>,:password<bad>),
+    'bad password should fail',
+);
+    
+nok(
+    $u.authenticate(:user<not-there>,:password<bad>),
+    'bad username should fail',
+);
+
+ok(
+    $u.authenticate(:user<me>,:password<sesame>),
+    'plaintext should work',
+);
+
+ok(
+    $u.authenticate(:user<me>,:password<enc:736573616d65>),
+    'hex-encoded should work',
+);
+
+nok(
+    $u.authenticate(:user<me>,:password<enc:736573616d64>),
+    'bad hex-encoded should fail',
+);
+
+ok(
+    $u.authenticate(:user<me>,:token<26719a1196d2a940705a59634eb18eab>,
+                    :salt<c19b2d>),
+    'salted hash should work',
+);
+
+nok(
+    $u.authenticate(:user<me>,:token<26719a1196d2a940705a59634eb18eab>,
+                    :salt<c19b2c>),
+    'bad salted hash should work',
+);
+
+done-testing;
+
+    
-- 
cgit v1.2.3