# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1452393300 -3600
# Node ID 31fa6770019c5d6e022203fce8b1f5361bee8f04
# Parent  3121054e665f4922c2cc2cb23178d838f81e265d
tests: Add test for util.uuid (checks that the output format is correct)

diff -r 3121054e665f -r 31fa6770019c tests/test.lua
--- a/tests/test.lua	Sun Jan 10 03:25:16 2016 +0100
+++ b/tests/test.lua	Sun Jan 10 03:35:00 2016 +0100
@@ -22,6 +22,7 @@
 	dotest "util.sasl.scram"
 	dotest "util.cache"
 	dotest "util.throttle"
+	dotest "util.uuid"
 
 	dosingletest("test_sasl.lua", "latin1toutf8");
 	dosingletest("test_utf8.lua", "valid");
diff -r 3121054e665f -r 31fa6770019c tests/test_util_uuid.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/test_util_uuid.lua	Sun Jan 10 03:35:00 2016 +0100
@@ -0,0 +1,24 @@
+-- This tests the format, not the randomness
+
+-- https://tools.ietf.org/html/rfc4122#section-4.4
+
+local pattern = "^" .. table.concat({
+	string.rep("%x", 8),
+	string.rep("%x", 4),
+	"4" .. -- version
+	string.rep("%x", 3),
+	"[89ab]" .. -- reserved bits of 1 and 0
+	string.rep("%x", 3),
+	string.rep("%x", 12),
+}, "%-") .. "$";
+
+function generate(generate)
+	for i = 1, 100 do
+		assert_is(generate():match(pattern));
+	end
+end
+
+function seed(seed)
+	assert_equal(seed("random string here"), nil, "seed doesn't return anything");
+end
+