view tests/test_util_uuid.lua @ 7603:4e2b019ff176

net.server_epoll: Make sure wantwrite is set when starting TLS
author Kim Alvefur <zash@zash.se>
date Thu, 18 Aug 2016 17:17:16 +0200
parents 7a655ff689b1
children
line wrap: on
line source

-- 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 _ = 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