Корректная установка даты истечения куки (#92)

* Корректная установка даты истечения куки

* Добавлен Знач

src/Классы/Куки.os

@@ -47,8 +47,8 @@
 КонецФункции
 
 Функция ПреобразоватьДатуДляКуки(Знач Дата)
-	ДатаУниверсальная = УниверсальноеВремя(Дата);
-	Возврат "";	
+	Дата = УниверсальноеВремя(Дата);
+	Возврат Формат(Дата, "Л=en; ДФ='ддд, дд МММ гггг ЧЧ:мм:сс ''GMT'''");
 КонецФункции
 
 Функция КукаВСтроку(Кука) Экспорт

tests/alltest.os

@@ -139,7 +139,8 @@
 
 	// Дано
 	ЗначениеКуки = Строка(Новый УникальныйИдентификатор());
-	АдресТеста = СтрШаблон("setcookie?pechenka=%1", ЗначениеКуки);
+	ДатаИстечения = МестноеВремя('19700101235959');
+	АдресТеста = СтрШаблон("setcookie?pechenka=%1&expires=%2", ЗначениеКуки, XMLСтрока(ДатаИстечения));
 
 	// Когда
 	Ответ = ГетЗапрос(АдресТеста);
@@ -148,7 +149,8 @@
 
 	// Тогда
 	Ожидаем.Что(Ответ.КодСостояния).Равно(200);
-	Ожидаем.Что(СтрНайти(ТекстКук, ЗначениеКуки)).Больше(0);
+	Ожидаем.Что(ТекстКук).Содержит(ЗначениеКуки);
+	Ожидаем.Что(ТекстКук).Содержит("Thu, 01 Jan 1970 23:59:59 GMT");
 
 КонецПроцедуры
 

tests/app/КонтролТестирования.os

@@ -41,7 +41,9 @@
 Процедура УстановитьКуку(Ответ, ПараметрыЗапросаИменные) Экспорт
 	ИмяКуки = "pechenka";
 	ЗначениеКуки = ПараметрыЗапросаИменные["pechenka"];
+	ДатаИстечения = XMLЗначение(Тип("Дата"), ПараметрыЗапросаИменные["expires"]);
 	НоваяКука = Ответ.Куки.Добавить(ИмяКуки, ЗначениеКуки);
+	НоваяКука.ДатаИстечения = ДатаИстечения;
 КонецПроцедуры
 
 &ТочкаМаршрута("setsessiondata")