Ссылка на сущность в ЗаписатьТекущий.

Author: dmpas

src/OneScript.StandardLibrary/Xml/XmlWriterImpl.cs

@@ -214,8 +214,10 @@ public void WriteCurrent(XmlReaderImpl reader)
                 case XmlNodeType.Comment:
                     WriteComment(reader.Value);
                     break;
-                case XmlNodeType.Entity:
                 case XmlNodeType.EntityReference:
+                    WriteEntityReference(reader.Name);
+                    break;
+                case XmlNodeType.Entity:
                 case XmlNodeType.EndEntity:
                 case XmlNodeType.ProcessingInstruction:
                 case XmlNodeType.Document:

tests/xmlwrite.os

@@ -38,6 +38,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Текст");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_CDATA");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_Комментарий");
+	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_СсылкаНаСушность");
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ПолноеКопирование");
 
 	ВсеТесты.Добавить("ТестДолжен_ЗаписатьТекущий_ОбъявлениеИТипДокумента");
@@ -591,6 +592,45 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ЗаписатьТекущий_СсылкаНаСушность() Экспорт
+
+	Перем ЧтениеXML, ЗаписьXML;
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ДойтиДоИмени(ЧтениеXML, "entity");
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.СсылкаНаСущность);
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл>&СсылкаНаСущность;</эл>",
+		ПолученныйТекст,
+		"Ссылка на сущность");
+
+	ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML);
+
+	ДойтиДоИмени(ЧтениеXML, "entity2");
+
+	ЗаписьXML.ЗаписатьНачалоЭлемента("эл");
+	
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.Текст);
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+
+	ПрочитатьИПроверитьТип(ЧтениеXML, ТипУзлаXML.СсылкаНаСущность);
+	ЗаписьXML.ЗаписатьТекущий(ЧтениеXML);
+
+	ЗаписьXML.ЗаписатьКонецЭлемента();
+
+	ПолученныйТекст = ЗаписьXML.Закрыть();
+	юТест.ПроверитьРавенство("<эл>Это &СсылкаНаСущность;</эл>",
+		ПолученныйТекст,
+		"Ссылка на сущность внутри текста");
+	
+КонецПроцедуры
+
 Процедура ПодготовитьТестовыеДанныеДляЗаписиТекущего(ЧтениеXML, ЗаписьXML)
 
 	ПодопытныйТекст =
@@ -601,6 +641,8 @@
 		|	<ins:data xmlns:ins=""inner namespace mapping"" ins:attr=""1""></ins:data>
 		|	<cdata><![CDATA[Некоторый текст]]></cdata>
 		|	<БлокСКомментарием> <!-- Комментарий --> </БлокСКомментарием>
+		|	<entity>&СсылкаНаСущность;</entity>
+		|	<entity2>Это &СсылкаНаСущность;</entity2>
 		|</xml>"
 	;