EvilBeaver#392: ЗаписатьТекущий пишет только текущее состояние.

Author: dmpas

src/OneScript.StandardLibrary/Xml/XmlWriterImpl.cs

@@ -183,7 +183,39 @@ public void WriteText(string text)
         [ContextMethod("ЗаписатьТекущий","WriteCurrent")]
         public void WriteCurrent(XmlReaderImpl reader)
         {
-            _writer.WriteNode(reader.GetNativeReader(), false);
+            var nodeType = reader.NodeType.UnderlyingValue;
+            switch (nodeType)
+            {
+                case XmlNodeType.Element:
+                    CopyElementAndAttributes(reader, this);
+                    break;
+                case XmlNodeType.Attribute:
+                    WriteAttribute(reader.Name, reader.Value);
+                    break;
+                case XmlNodeType.EndElement:
+                    WriteEndElement();
+                    break;
+                case XmlNodeType.Text:
+                    WriteText(reader.Value);
+                    break;
+                default:
+                    break;
+            }
+        }
+
+        private static void CopyElementAndAttributes(XmlReaderImpl reader, XmlWriterImpl writer)
+        {
+            writer.WriteStartElement(reader.Name);
+            var attributeCount = reader.AttributeCount();
+            if (attributeCount != 0)
+            {
+                for (var attributeIndex = 0; attributeIndex < attributeCount;  attributeIndex++)
+                {
+                    var attributeName = reader.AttributeName(attributeIndex);
+                    var attributeValue = reader.GetAttribute(ValueFactory.Create(attributeIndex));
+                    writer.WriteAttribute(attributeName, attributeValue.ExplicitString());
+                }
+            }
         }
 
         [ContextMethod("ЗаписатьТипДокумента","WriteDocumentType")]

tests/xmlwrite.os

@@ -26,8 +26,16 @@
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьВСтрокуБезПробелаПередЗакрытием");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьПравильныйВыводПробелСлэша");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекст");
+
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_БезЧтения");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_НачалоЭлемента");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_НачалоВложенногоЭлемента");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_АтрибутВнутриЭлемента");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_КонецЭлемента");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Текст");
 
 	Возврат ВсеТесты;
+
 КонецФункции
 
 Процедура ТестДолжен_ЗаписатьВСтроку() Экспорт
@@ -272,3 +280,144 @@
 	юТест.ПроверитьРавенство(Результат, "<root>123</root>");
 
 КонецПроцедуры
+
+
+Процедура ТестДолжен_ЗаписатьТекущий_БезЧтения() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("", ПолученныйТекст, "Ничего не прочитано - ничего не пишется");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ЗаписатьТекущий_НачалоЭлемента() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЧтениеXML.Прочитать();
+	
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<xml xmlns:ns=""ns"" attr=""1"" ns:attr=""value"" />", // dotnet автоматом закроет элемент
+		ПолученныйТекст,
+		"Первый элемент");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ЗаписатьТекущий_НачалоВложенногоЭлемента() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+	
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<ns:data inner=""123"" inner2=""456"" inner3=""789"" />", // dotnet автоматом закроет элемент
+		ПолученныйТекст,
+		"Второй элемент");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ЗаписатьТекущий_АтрибутВнутриЭлемента() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+	
+	ЧтениеXML.ПервыйАтрибут();
+	ЧтениеXML.СледующийАтрибут();
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл inner2=""456"" />", // dotnet автоматом закроет элемент
+		ПолученныйТекст,
+		"Второй атрибут");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ЗаписатьТекущий_КонецЭлемента() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+	
+	ЧтениеXML.ПервыйАтрибут();
+	ЧтениеXML.СледующийАтрибут();
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+
+	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла,
+		ТипУзлаXML.КонецЭлемента,
+		"Спозиционированы на КонецЭлемента");
+
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл inner2=""456""/>",
+		ПолученныйТекст,
+		"Закрытие элемента");
+	
+КонецПроцедуры
+
+Процедура ТестДолжен_ЗаписатьТекущий_Текст() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+	ЧтениеXML.Прочитать();
+
+	юТест.ПроверитьРавенство(ЧтениеXML.ТипУзла,
+		ТипУзлаXML.Текст,
+		"Спозиционированы на Текст");
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл>Some Text</эл>",
+		ПолученныйТекст,
+		"Текст");
+	
+КонецПроцедуры
+
+Процедура ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML)
+
+	ПодопытныйТекст =
+		"<xml xmlns:ns=""ns"" attr=""1"" ns:attr=""value"">
+		|	<ns:data inner=""123"" inner2=""456"" inner3=""789"">Some Text</ns:data>
+		|</xml>"
+	;
+	ЧтениеXML = Новый ЧтениеXML;
+	ЧтениеXML.УстановитьСтроку(ПодопытныйТекст);
+
+	ПараметрыЗаписи = Новый ПараметрыЗаписиXml(, , Ложь); // без переносов
+
+	ЗаписьXML = Новый ЗаписьXML;
+	ЗаписьXML.УстановитьСтроку(ПараметрыЗаписи);
+
+КонецПроцедуры