Unique GUID shim - Closes #153

lib/instances/HttpService.lua

@@ -4,6 +4,15 @@ local json = import("../json")
 
 local HttpService = BaseInstance:extend("HttpService")
 
+local guidCounter = 0
+
+local GUID_DASH_POINTS = {
+	[8] = true,
+	[12] = true,
+	[16] = true,
+	[20] = true,
+}
+
 function HttpService.prototype:JSONEncode(input)
 	return json.encode(input)
 end
@@ -18,15 +27,25 @@ function HttpService.prototype:GenerateGUID(wrapInCurlyBraces)
 		error(("Unable to cast %s to bool"):format(argType), 2)
 	end
 
+	local zeroPadded = ("%032x"):format(guidCounter)
+	local guid = ""
+	for index = 1, 32 do
+		guid = guid .. zeroPadded:sub(index, index)
+		if GUID_DASH_POINTS[index] then
+			guid = guid .. "-"
+		end
+	end
+	guidCounter = guidCounter + 1
+
 	--[[
 		`GenerateGUID` allows any value type for `wrapInCurlyBraces`, but it
 		only omits the curly braces when `wrapInCurlyBraces` is set to `false`
 	]]
-	if wrapInCurlyBraces == false then
-		return "04AEBFEA-87FC-480F-A98B-E5E221007A90"
-	else
-		return "{04AEBFEA-87FC-480F-A98B-E5E221007A90}"
+	if wrapInCurlyBraces ~= false then
+		guid = "{" .. guid .. "}"
 	end
+
+	return guid
 end
 
 return HttpService

lib/instances/HttpService_spec.lua

@@ -20,6 +20,29 @@ describe("instances.HttpService", function()
 	end)
 
 	describe("GenerateGUID", function()
+		it("should have proper length guids", function()
+			local instance = HttpService:new()
+			local guid = instance:GenerateGUID(false)
+
+			assert.equal(36, #guid)
+		end)
+
+		it("should give unique guids", function()
+			local instance = HttpService:new()
+			local guids = {}
+
+			for _ = 1, 100 do
+				guids[instance:GenerateGUID()] = true
+			end
+
+			local guidsGenerated = 0
+			for _ in pairs(guids) do
+				guidsGenerated = guidsGenerated + 1
+			end
+
+			assert.equal(100, guidsGenerated)
+		end)
+
 		it("should omit curly braces when wrapInCurlyBraces is false", function()
 			local instance = HttpService:new()
 			local guid = instance:GenerateGUID(false)