преобразование в строку с учетом пустых элементов; тесты

Author: Mr-Rm

src/OneScript.StandardLibrary/Collections/ValueList/ValueListImpl.cs

@@ -394,6 +394,8 @@ public override IEnumerator<ValueListItem> GetEnumerator()
 
         #endregion
 
+        public override string ToString() => string.Join("; ", _items);
+
         [ScriptConstructor]
         public static ValueListImpl Constructor()
         {

src/OneScript.StandardLibrary/Collections/ValueList/ValueListItem.cs

@@ -7,6 +7,8 @@ This Source Code Form is subject to the terms of the
 
 using System;
 using OneScript.Contexts;
+using OneScript.Localization;
+using OneScript.Values;
 using ScriptEngine.Machine;
 using ScriptEngine.Machine.Contexts;
 
@@ -18,6 +20,8 @@ namespace OneScript.StandardLibrary.Collections.ValueList
     [ContextClass("ЭлементСпискаЗначений", "ValueListItem")]
     public class ValueListItem : AutoContext<ValueListItem>
     {
+        static readonly BilingualString EMPTY_VALUE_STRING = new("<Пустое значение>", "<Empty value>");
+
         private string _presentationHolder;
         private IValue _pictureHolder;
 
@@ -48,6 +52,8 @@ public IValue Picture
         }
 
         public override string ToString()
-            => !String.IsNullOrEmpty(_presentationHolder) ? _presentationHolder : Value.ToString();
+            => !String.IsNullOrEmpty(_presentationHolder) ? _presentationHolder
+            : Value is BslUndefinedValue ? EMPTY_VALUE_STRING
+            : Value.ToString();
     }
 }

tests/value-list.os

@@ -25,6 +25,7 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойствоТипЗначения");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойствоДоступныеЗначения_Без_ТипЗначения");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойствоДоступныеЗначения_С_ТипЗначения");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПреобразованиеСпискаВСтроку");
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -431,6 +432,8 @@
 	СЗ.Добавить(1, "");
 	СЗ.Добавить(2, Неопределено);
 	СЗ.Добавить(3, " ");
+	СЗ.Добавить(Неопределено);
+	СЗ.Добавить(Неопределено,"(неопр.)");
 
 	юТест.ПроверитьРавенство("0", Строка(СЗ[0]), "Строка, без указания");
 	юТест.ПроверитьРавенство("", СЗ[0].Представление, "Представление, без указания");
@@ -440,6 +443,11 @@
 	юТест.ПроверитьРавенство("", СЗ[2].Представление, "Представление, Неопределено");
 	юТест.ПроверитьРавенство(" ", Строка(СЗ[3]), "Строка, пробел");
 	юТест.ПроверитьРавенство(" ", СЗ[3].Представление, "Представление, пробел");
+	
+	юТест.ПроверитьРавенство("<Пустое значение>", Строка(СЗ[4]), "Неопределено, без указания");
+	юТест.ПроверитьРавенство("", СЗ[4].Представление, "Неопределено, без представления");
+	юТест.ПроверитьРавенство("(неопр.)", Строка(СЗ[5]), "Неопределено, с указанием");
+	юТест.ПроверитьРавенство("(неопр.)", СЗ[5].Представление, "Неопределено, с представлением");
 
 КонецПроцедуры
 
@@ -503,3 +511,19 @@
 	юТест.ПроверитьРавенство( 99, СЗ[3].Значение, "Приведение с переполнением и допустимое значение");
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьПреобразованиеСпискаВСтроку() Экспорт
+
+	СЗ = Новый СписокЗначений;
+	СЗ.Добавить(11);
+	СЗ.Добавить(12,"двенадцать");
+	СЗ.Добавить("абв");
+	СЗ.Добавить("фыв","");
+	СЗ.Добавить("пробел"," ");
+	СЗ.Добавить("йцу","Йцу!");
+	СЗ.Добавить(Неопределено);
+	СЗ.Добавить(Неопределено,"(неопр.)");
+	
+	Строка = Строка(СЗ);
+
+	юТест.ПроверитьРавенство(Строка, "11; двенадцать; абв; фыв;  ; Йцу!; <Пустое значение>; (неопр.)");
+КонецПроцедуры