local mcTestFunctions = {}
local inst = mc.mcGetInstance()
local rc



function mcTestFunctions.SetValues()
    local ToolNr = 3

    rc = mc.mcToolSetData(inst, mc.MTOOL_MILL_HEIGHT, ToolNr, 76)
    rc = mc.mcToolSetData(inst, mc.MTOOL_MILL_RAD, ToolNr, 8)
    rc = mc.mcToolSetDesc(inst, ToolNr, "Bohrer 8mm")

	rc = mc.mcToolSetDataExInt(inst, ToolNr, "REPEATABLE_HOLDER", 0)
    rc = mc.mcToolSetDataExInt(inst, ToolNr, "TOOL_MEASURED", 1)
    rc = mc.mcToolSetDataExInt(inst, ToolNr, "GUESS_TOOL_LENGHT", 122)
    rc = mc.mcToolSetDataExStr(inst, ToolNr, "TEST_STRING", "BlaBlaBla")

	local ToolMeasured, rc = mc.mcToolGetDataExInt(inst, ToolNr, "TOOL_MEASURED")
	local GuessToolLenght, rc = mc.mcToolGetDataExDbl(inst, ToolNr, "GUESS_TOOL_LENGHT")
	local TestString, rc = mc.mcToolGetDataExStr(inst, ToolNr, "TEST_STRING")
	local ToolDescription, rc = mc.mcToolGetDesc(inst, ToolNr)
end


function mcTestFunctions.GetValues()
	local ToolNr = 1

	local RepeatableHolder, rc = mc.mcToolGetDataExInt(inst, ToolNr, "REPEATABLE_HOLDER")
	local ToolMeasured, rc = mc.mcToolGetDataExInt(inst, ToolNr, "TOOL_MEASURED")
	local GuessToolLenght, rc = mc.mcToolGetDataExDbl(inst, ToolNr, "GUESS_TOOL_LENGHT")
	local TestString, rc = mc.mcToolGetDataExStr(inst, ToolNr, "TEST_STRING")
	local ToolDescription, rc =mc.mcToolGetDesc(inst, ToolNr)

	mc.mcCntlSetLastError(inst, "RepeatableHolder " ..RepeatableHolder)
	mc.mcCntlSetLastError(inst, "ToolMeasured " ..ToolMeasured)
	mc.mcCntlSetLastError(inst, "GuessToolLenght " ..GuessToolLenght)
	mc.mcCntlSetLastError(inst, "TestString " ..TestString)
	mc.mcCntlSetLastError(inst, "ToolDescription " ..ToolDescription)
end

if (mc.mcInEditor() == 1) then
	mcTestFunctions.GetValues()
end

return mcTestFunctions