#109: Не работала команда "показать тесты"

Author: artbear

tests/testrunner.os

@@ -212,6 +212,8 @@
 
 	Если КомандаЗапуска = СтруктураПараметровЗапуска.Запустить Тогда
 		Пути.Добавить(ПутьКТестам);
+	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ПоказатьСписок Тогда
+		Пути.Добавить(ПутьКТестам);
 	ИначеЕсли КомандаЗапуска = СтруктураПараметровЗапуска.ЗапуститьКаталог Тогда
 		Файлы = НайтиФайлы(ПутьКТестам, "*.os", Истина);
 		Для Каждого Файл Из Файлы Цикл
@@ -267,6 +269,9 @@
 		Иначе
 			ПолноеИмяТестовогоСлучая = Файл.ПолноеИмя;
 			ИмяКлассаТеста = СтрЗаменить(Файл.ИмяБезРасширения,"-","")+СтрЗаменить(Строка(Новый УникальныйИдентификатор),"-","");
+			Если КомандаЗапуска = СтруктураПараметровЗапуска.ПоказатьСписок Тогда
+				Сообщить("  Файл теста "+ПолноеИмяТестовогоСлучая);
+			КонецЕсли;
 			//Сообщить(ИмяКлассаТеста);
 			Попытка
 				ПодключитьСценарий(Файл.ПолноеИмя, ИмяКлассаТеста);
@@ -280,9 +285,6 @@
 				РезультатТестирования = ЗначенияСостоянияТестов.Сломался;
 				Продолжить;
 			КонецПопытки;
-			Если КомандаЗапуска = СтруктураПараметровЗапуска.ПоказатьСписок Тогда
-				Сообщить("  Файл теста "+ПолноеИмяТестовогоСлучая);
-			КонецЕсли;
 
 			МассивТестовыхСлучаев = ПолучитьТестовыеСлучаи(Тест, ПолноеИмяТестовогоСлучая);
 			Если МассивТестовыхСлучаев = Неопределено Тогда