Код

Функция СоздатьФайлНовогоКласса(НаименованиеНовогоКласса, НаименованиеМетодов)
	ИмяФайлаКласса=СтрЗаменить(Сам().ПолучитьПуть(), "MetaInfoClassesТесты.txt", НаименованиеНовогоКласса+".txt");
	Текст=СоздатьОбъект("Текст");

	Текст.ДобавитьСтроку("Перем Перем_"+НаименованиеМетодов+";");
	Текст.ДобавитьСтроку("Функция Функция_"+НаименованиеМетодов+"() Экспорт
			|	Возврат 0;
			|КонецФункции");
	Текст.ДобавитьСтроку("Процедура Процедура_"+НаименованиеМетодов+"() Экспорт
			|	Возврат;
			|КонецПроцедуры");
	Текст.Записать(ИмяФайлаКласса);

	Сам().ДобавитьВременныйФайл(ИмяФайлаКласса);

	Возврат ИмяФайлаКласса;
КонецФункции

Функция СоздатьОписаниеНовогоКласса(НаименованиеНовогоКласса)
	ИмяФайлаОписанияКласса = "Описание_"+НаименованиеНовогоКласса+".txt";
	ИмяФайлаОписанияКласса = СтрЗаменить(Сам().ПолучитьПуть(), "MetaInfoClassesТесты.txt", ИмяФайлаОписанияКласса);
	Текст=СоздатьОбъект("Текст");
	Текст.ДобавитьСтроку("class "+НаименованиеНовогоКласса+" = "+НаименованиеНовогоКласса+".txt
		|{
		|}");
	Текст.Записать(ИмяФайлаОписанияКласса);

	Сам().ДобавитьВременныйФайл(ИмяФайлаОписанияКласса);

	Возврат ИмяФайлаОписанияКласса;
КонецФункции

Процедура Тест_ЗагрузитьОписаниеКлассов() Экспорт
	МетаИнфо = МетаИнфо();        
	Математика = СоздатьОбъект("Математика");
	СлучайноеЧисло = Математика.RAND();

	// использую случайное имя класса, чтобы можно было добавлять,
	// 	иначе будет ошибка повторного определения класса
	ИмяНовогоКласса = "НовыйКласс_"+Строка(СлучайноеЧисло);

	НаименованиеМетодов = "1";

	СоздатьФайлНовогоКласса(ИмяНовогоКласса, НаименованиеМетодов);
	ИмяФайлаОписанияКласса = СоздатьОписаниеНовогоКласса(ИмяНовогоКласса);

	МетаИнфо.ЗагрузитьОписаниеКлассов(ИмяФайлаОписанияКласса);

	Объект = СоздатьОбъект(ИмяНовогоКласса);
	Сам().ПроверитьРавенство(ТипЗначенияСтр(Объект), ИмяНовогоКласса);

КонецПроцедуры