#pragma compile(Out, Test_Set_2.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_2__OpenFolder|_SET_2__MsgBox|_SET_2__ReturnOnly"
EndFunc




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

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


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


Func _SET_2__ReturnOnly()
    Return Random(1, 10)
EndFunc

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




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