Добавлена возможность изменения настройки НеявноПриводитьПримитивныеЗначенияКлюча

Author: kuntashov

src/json.os

@@ -306,7 +306,7 @@
 					МаскироватьСимволыПолностью=Истина, МаскироватьКириллицу=Ложь, 
 					НеявноПриводитьПримитивныеЗначенияКлюча=Ложь) Экспорт 
 
-	Возврат jsonЗаписатьИнициализация(Значение, Стандарт, ПредставленияСсылок, МаскироватьСимволыПолностью, МаскироватьКириллицу, Ложь);
+	Возврат jsonЗаписатьИнициализация(Значение, Стандарт, ПредставленияСсылок, МаскироватьСимволыПолностью, МаскироватьКириллицу, НеявноПриводитьПримитивныеЗначенияКлюча);
 
 КонецФункции // ЗаписатьJSON()
 
@@ -832,8 +832,8 @@
 		НовоеОписаниеТипов("Строка"));																			// ТипДопустимыхКлючей.
 
 	// Типы допустимых ключей.
-	Если НеявноПриводитьПримитивныеЗначенияКлюча = Истина Тогда 
-		ВспомогательныеДанные.ТипДопустимыхКлючей = Новый ОписаниеТипов("Null,Булево,Число,Дата,Строка,УникальныйИдентификатор"); 
+	Если НеявноПриводитьПримитивныеЗначенияКлюча = Истина Тогда
+		ВспомогательныеДанные.ТипДопустимыхКлючей = НовоеОписаниеТипов("Null,Булево,Число,Дата,Строка,УникальныйИдентификатор"); 
 	КонецЕсли;
 
 	// форматирование.
@@ -1737,4 +1737,4 @@
 	Длина = Найти(Описание, Символы.ПС); Если Длина Тогда Длина = Длина - Позиция; Иначе Длина = СтрДлина(Описание); КонецЕсли;
 	Возврат НСтр("ru = 'JSON: Невозможно выполнить запрос. '; uk = 'JSON: Неможливо виконати запит. '") + Сред(Описание, Позиция, Длина) + ".";
 
-КонецФункции // ИсключениеНевозможноВыполнитьЗапрос()
+КонецФункции // ИсключениеНевозможноВыполнитьЗапрос()

tests/json-test.os

@@ -36,6 +36,9 @@
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоКириллицаМаскируется");
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоКириллицаНеМаскируется");
 
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейПреобразуютсяКСтроке");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейВызываютИсключение");
+
 	Возврат ВсеТесты;
 КонецФункции
 
@@ -183,6 +186,65 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейПреобразуютсяКСтроке() Экспорт
+
+	УникальныйИдентификатор = Новый УникальныйИдентификатор;
+
+	Эталон = "{
+	|    """": ""Null"",
+	|    ""Да"": ""Истина"",
+	|    ""42"": ""Ответ на самый главный вопрос жизни, Вселенной и всего такого"",
+	|    ""31.12.2015 0:00:00"": ""С Новым Годом!"",
+	|    """ + Строка(УникальныйИдентификатор) + """: ""Это GUID""
+	|}";
+
+	Объект = Новый Соответствие;
+	Объект.Вставить(Null, "Null");
+	Объект.Вставить(Истина, "Истина");
+	Объект.Вставить(42, "Ответ на самый главный вопрос жизни, Вселенной и всего такого");
+	Объект.Вставить(Дата(2015,12,31), "С Новым Годом!");
+	Объект.Вставить(УникальныйИдентификатор, "Это GUID");
+
+	СтрокаJSON = _преобразовательJSON.ЗаписатьJSON(Объект,,,,,Истина);
+
+	юТест.ПроверитьРавенство(Эталон, СтрокаJSON);
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьЧтоПримитивныеЗначенияКлючейВызываютИсключение() Экспорт
+
+	юТест.ПроверитьИстину(НедопустимыйТипЗначенияКлючаВызываетИсключение(Null), 
+		"Null-значение использовано в качестве ключа, а должно вызывать исключение");
+	
+	юТест.ПроверитьИстину(НедопустимыйТипЗначенияКлючаВызываетИсключение(Истина), 
+		"Булево значение в использовано качестве ключа, а должно вызывать исключение");
+	
+	юТест.ПроверитьИстину(НедопустимыйТипЗначенияКлючаВызываетИсключение(42), 
+		"Число использовано в качестве ключа, а должно вызывать исключение");
+	
+	юТест.ПроверитьИстину(НедопустимыйТипЗначенияКлючаВызываетИсключение(Дата(2015,12,31)), 
+		"Дата использована в качестве ключа, а должна вызывать исключение");
+
+	юТест.ПроверитьИстину(НедопустимыйТипЗначенияКлючаВызываетИсключение(Новый УникальныйИдентификатор), 
+		"Уникальный идентификатор использован в качестве ключа, а должно вызывать исключение");
+
+КонецПроцедуры
+
+Функция НедопустимыйТипЗначенияКлючаВызываетИсключение(ЗначениеКлюча)
+	Объект = Новый Соответствие;
+	Объект.Вставить(ЗначениеКлюча, "Значение");
+	Попытка
+		СтрокаJSON = _преобразовательJSON.ЗаписатьJSON(Объект);
+		Возврат Ложь;
+	Исключение
+		ОписаниеОшибки = ОписаниеОшибки();
+		Если Найти(ОписаниеОшибки, "JSON: Недопустимый тип значения ключа") > 0 Тогда
+			Возврат Истина;
+		КонецЕсли;
+		ВызватьИсключение ОписаниеОшибки;
+	КонецПопытки 
+КонецФункции
+
 Функция ПолучитьСтрокуСимволов(НачалоДиапазона, КонецДиапазона)
 	СтрРезультат = "";
 	Для КодСимвола = НачалоДиапазона По КонецДиапазона Цикл