spec_engine.epf

spec_engine.epf.FormModule.bsl

Процедура КнопкаВыполнитьНажатие(Кнопка)
	for each test in TestsGet().UnloadValues() do
		RunTest(test, "FIXME");		
	enddo;
КонецПроцедуры

function RunTest(Form, TestName) export
	return ObjectNew().Exec(ObjectNew().Parse(Form), TestName);	
endfunction

function TestsGet()
	result = New ValueList;
	For each form in ThisObject.Metadata().Forms do
		if СтрЧислоВхождений(form.Name+"$", "_test$") then	
			result.Add(form.Name, form.name);
		endif;
	enddo;
	return result;
endfunction

function ObjectNew()
	return ВнешниеОбработки.Создать(ЭтотОбъект.ИспользуемоеИмяФайла);
endfunction