#pragma compile(Out, Test_Set_1.a3x)

Global $oShell


__ObjShell_Load()


; Standart func name (must be exists in each tets set)
Func _Functions_List()
	MsgBox(64, @ScriptName, 'All tests from "' & @ScriptName & '" are loaded')
    Return "|_SET_1__OpenFolder|_SET_1__MsgBox|_SET_1__ReturnOnly"
EndFunc




#Region ######## EQUIPMENT TEST FUNCTIONS #######

Func _SET_1__OpenFolder()
    $oShell.Open(@MyDocumentsDir)
EndFunc


Func _SET_1__MsgBox()
    MsgBox(0, "", "Hello From [SET 2] TEST")
	Return "SET 2 DONE!"
EndFunc


Func _SET_1__ReturnOnly()
	Local $sText = ""
	For $i = 1 To 10
		$sText = $sText & Chr(Random(65, 90, 1))
	Next
    Return $sText
EndFunc

#EndRegion ######## EQUIPMENT TEST FUNCTIONS #######




Func __ObjShell_Load()
    $oShell = ObjCreate("shell.application")
EndFunc   ;==>Test1