2012-12-29 18:26:41 +00:00
|
|
|
--
|
|
|
|
-- tests/base/test_uuid.lua
|
|
|
|
-- Automated test suite for UUID generation.
|
|
|
|
-- Copyright (c) 2008-2012 Jason Perkins and the Premake project
|
|
|
|
--
|
|
|
|
|
|
|
|
local suite = test.declare("os_uuid")
|
|
|
|
|
|
|
|
|
|
|
|
--
|
|
|
|
-- Setup and teardown
|
|
|
|
--
|
|
|
|
|
|
|
|
local builtin_print, result
|
2013-01-17 19:37:49 +00:00
|
|
|
|
2012-12-29 18:26:41 +00:00
|
|
|
function suite.setup()
|
|
|
|
builtin_print = print
|
|
|
|
print = function(value)
|
|
|
|
result = value
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
function suite.teardown()
|
|
|
|
print = builtin_print
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
--
|
|
|
|
-- Make sure the return value looks like a UUID.
|
|
|
|
--
|
|
|
|
|
|
|
|
function suite.returnsValidUUID()
|
|
|
|
local g = os.uuid()
|
|
|
|
test.istrue(#g == 36)
|
|
|
|
for i=1,36 do
|
|
|
|
local ch = g:sub(i,i)
|
|
|
|
test.istrue(ch:find("[ABCDEF0123456789-]"))
|
|
|
|
end
|
|
|
|
test.isequal("-", g:sub(9,9))
|
|
|
|
test.isequal("-", g:sub(14,14))
|
|
|
|
test.isequal("-", g:sub(19,19))
|
|
|
|
test.isequal("-", g:sub(24,24))
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
--
|
|
|
|
-- Make sure the value returned is deterministic if a name is provided.
|
|
|
|
--
|
|
|
|
|
|
|
|
function suite.isDeterministic_onName()
|
|
|
|
test.isequal("885E8F4B-F43D-0EE7-FD55-99BD69B47448", os.uuid("MyValue"))
|
|
|
|
end
|