Инструкции обработки в ЗаписатьТекущий.

Author: dmpas

src/OneScript.StandardLibrary/Xml/XmlWriterImpl.cs

@@ -217,9 +217,11 @@ public void WriteCurrent(XmlReaderImpl reader)
                 case XmlNodeType.EntityReference:
                     WriteEntityReference(reader.Name);
                     break;
+                case XmlNodeType.ProcessingInstruction:
+                    WriteProcessingInstruction(reader.Name, reader.Value);
+                    break;
                 case XmlNodeType.Entity:
                 case XmlNodeType.EndEntity:
-                case XmlNodeType.ProcessingInstruction:
                 case XmlNodeType.Document:
                 case XmlNodeType.DocumentFragment:
                 case XmlNodeType.Notation:

tests/xmlwrite.os

@@ -40,6 +40,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Комментарий");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_СсылкаНаСушность");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ПолноеКопирование");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ИнструкцииОбработки");
 
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента");
 
@@ -631,6 +632,67 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ЗаписатьТекущий_ИнструкцииОбработки() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ДойтиДоИмени(ЧтениеXML, "PI");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ИнструкцияОбработки);
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+
+	// Несовместимость: dotnet всегда добавляет пробел, даже если нет текста инструкции
+	юТест.ПроверитьРавенство("<эл><?инструкция ?></эл>",
+	//                                        ^
+		ПолученныйТекст,
+		"Инструкция обработки");
+
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.КонецЭлемента);
+	ЧтениеXML.Прочитать();
+
+	//
+
+	ПодготовитьЗаписьXML(ЗаписьXML);
+	ДойтиДоИмени(ЧтениеXML, "PI");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ИнструкцияОбработки);
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	
+	юТест.ПроверитьРавенство("<эл><?инструкция с произвольным текстом внутри?></эл>",
+		ПолученныйТекст,
+		"Инструкция обработки с текстом");
+
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.КонецЭлемента);
+	ЧтениеXML.Прочитать();
+
+	//
+
+	ПодготовитьЗаписьXML(ЗаписьXML);
+	ДойтиДоИмени(ЧтениеXML, "PI");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.ИнструкцияОбработки);
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	
+	юТест.ПроверитьРавенство("<эл><?инструкция с произвольным текстом внутри и &lt;служебными&nbsp;символами&gt;?></эл>",
+		ПолученныйТекст,
+		"Инструкция обработки с текстом и служебными символами");
+
+КонецПроцедуры
+
 Процедура ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML)
 
 	ПодопытныйТекст =
@@ -643,6 +705,9 @@
 		|	<БлокСКомментарием> <!-- Комментарий --> </БлокСКомментарием>
 		|	<entity>&СсылкаНаСущность;</entity>
 		|	<entity2>Это &СсылкаНаСущность;</entity2>
+		|	<PI><?инструкция?></PI>
+		|	<PI><?инструкция с произвольным текстом внутри?></PI>
+		|	<PI><?инструкция с произвольным текстом внутри и &lt;служебными&nbsp;символами&gt;?></PI>
 		|</xml>"
 	;
 
@@ -663,6 +728,12 @@
 	ЧтениеXML = Новый ЧтениеXML;
 	ЧтениеXML.УстановитьСтроку(ПодопытныйТекст, ПараметрыЧтения);
 
+	ПодготовитьЗаписьXML(ЗаписьXML);
+
+КонецПроцедуры
+
+Процедура ПодготовитьЗаписьXML(ЗаписьXML)
+
 	ПараметрыЗаписи = Новый ПараметрыЗаписиXml(, , Ложь); // без переносов
 
 	ЗаписьXML = Новый ЗаписьXML;