CDATA в ЗаписатьТекущий.

Author: dmpas

src/OneScript.StandardLibrary/Xml/XmlWriterImpl.cs

@@ -201,6 +201,9 @@ public void WriteCurrent(XmlReaderImpl reader)
                 case XmlNodeType.EndElement:
                     WriteEndElement();
                     break;
+                case XmlNodeType.CDATA:
+                    WriteCDATASection(reader.Value);
+                    break;
                 case XmlNodeType.Text:
                     WriteText(reader.Value);
                     break;

tests/xmlwrite.os

@@ -36,6 +36,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_АтрибутВнутриЭлементаСЛишнимПереопределениемПространстваИмен");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_КонецЭлемента");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Текст");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_CDATA");
 
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента");
 
@@ -505,6 +506,26 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ЗаписатьТекущий_CDATA() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+	ДойтиДоИмени(ЧтениеXML, "cdata");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.СекцияCDATA);
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьСекциюCDATA(", к которому добавили ещё текст");
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл><![CDATA[Некоторый текст]]><![CDATA[, к которому добавили ещё текст]]></эл>",
+		ПолученныйТекст,
+		"CDATA");
+	
+КонецПроцедуры
+
 Процедура ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента() Экспорт
 
 	Перем ЧтениеXML, ЗаписьXML;
@@ -536,6 +557,7 @@
 		|<xml xmlns:ns=""ns"" attr=""1"" ns:attr=""value"">
 		|	<ns:data inner=""123"" inner2=""456"" inner3=""789"">Some Text</ns:data>
 		|	<ins:data xmlns:ins=""inner namespace mapping"" ins:attr=""1""></ins:data>
+		|	<cdata><![CDATA[Некоторый текст]]></cdata>
 		|</xml>"
 	;
 
@@ -563,6 +585,20 @@
 
 КонецПроцедуры
 
+Функция ДойтиДоИмени(Знач ЧтениеXML, Знач Имя)
+	
+	Пока ЧтениеXML.Имя <> Имя Цикл
+
+		Если Не ЧтениеXML.Прочитать() Тогда
+			Возврат Ложь;
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат Истина;
+
+КонецФункции
+
 Процедура ПрочитатьИПроверитьТип(Знач ЧтениеXML, Знач ТипУзла, Знач Сообщение = Неопределено)
 	ЧтениеXML.Прочитать();
 	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла, ТипУзла, Сообщение);