Merge branch 'release/1.0.0'

Author: artbear

.gitignore

@@ -0,0 +1,2 @@
+tests.xml
+*.ospx

Jenkinsfile

@@ -0,0 +1,97 @@
+
+pipeline {
+    agent none
+    options {
+        buildDiscarder(logRotator(numToKeepStr: '7'))
+        skipDefaultCheckout()
+    }
+    
+    stages {
+        stage('Тестирование кода пакета WIN') {
+
+            agent { label 'windows' }
+
+            steps {
+                checkout scm
+                
+                script {
+                    if( fileExists ('tasks/test.os') ){
+                        bat 'chcp 65001 > nul && oscript tasks/test.os'
+                        if( fileExists ('tests.xml') ){
+                            junit 'tests.xml'
+                        }
+                        if( fileExists ('bdd-log.xml') ){
+                            junit 'bdd-log.xml'
+                        }
+                    }
+                    else
+                        echo 'no testing task'
+                }
+                
+            }
+
+        }
+
+        stage('Тестирование кода пакета LINUX') {
+
+            agent { label 'master' }
+
+            steps {
+                echo 'under development'
+            }
+
+        }
+
+        stage('Сборка пакета') {
+
+            agent { label 'windows' }
+
+            steps {
+                checkout scm
+
+                bat 'erase /Q *.ospx'
+                bat 'chcp 65001 > nul && call opm build .'
+
+                stash includes: '*.ospx', name: 'package'
+                archiveArtifacts '*.ospx'
+            }
+
+        }
+        
+        stage('Публикация в хабе') {
+            when {
+                branch 'master'
+            }
+            agent { label 'master' }
+            steps {
+                sh 'rm -f *.ospx'
+                unstash 'package'
+
+                sh '''
+                artifact=`ls -1 *.ospx`
+                basename=`echo $artifact | sed -r 's/(.+)-.*(.ospx)/\\1/'`
+                cp $artifact $basename.ospx
+                sudo rsync -rv *.ospx /var/www/hub.oscript.io/download/$basename/
+                '''.stripIndent()
+            }
+        }
+
+        stage('Публикация в нестабильном хабе') {
+            when {
+                branch 'develop'
+            }
+            agent { label 'master' }
+            steps {
+                sh 'rm -f *.ospx'
+                unstash 'package'
+
+                sh '''
+                artifact=`ls -1 *.ospx`
+                basename=`echo $artifact | sed -r 's/(.+)-.*(.ospx)/\\1/'`
+                cp $artifact $basename.ospx
+                sudo rsync -rv *.ospx /var/www/hub.oscript.io/dev-channel/$basename/
+                '''.stripIndent()
+            }
+        }
+    }
+}

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("json")
-		.Версия("0.2.1")
+		.Версия("1.0.0")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")
 		.ВключитьФайл("lib.config")

src/json.os

@@ -344,22 +344,40 @@
 		СхемаПодстановок,
 		(АвтоматическиПриводитьКСтруктуре = Истина));
 
+	ЗначениеБезКомментариев = ВырезатьКомментарии( Значение );
+
 	// Стартовые значения.
-	Индекс = 1; Длина = СтрДлина(Значение);
+	Индекс = 1; Длина = СтрДлина(ЗначениеБезКомментариев);
 
 	// Форматирование (первый шаг парсера).
 	Если Стандарт Тогда СимволыФорматирования = " " + Символы.ВК + Символы.ПС + Символы.Таб; 
-		jsonПрочитатьПропуститьФорматирование(Значение, Стандарт, Индекс, Длина, СимволыФорматирования); 
+		jsonПрочитатьПропуститьФорматирование(ЗначениеБезКомментариев, Стандарт, Индекс, Длина, СимволыФорматирования); 
 	КонецЕсли;
 	Если (Индекс > Длина) Тогда 
 		ВызватьИсключение ИсключениеПустойПакетДанных(); 
 	КонецЕсли; 
 
 	// Парсер.
-	Возврат jsonПрочитать(Значение, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, Истина);
+	Возврат jsonПрочитать(ЗначениеБезКомментариев, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, Истина);
 
 КонецФункции // jsonПрочитатьИнициализация()
 
+// Удаляет все комментарии // и блоки /* */
+Функция ВырезатьКомментарии( Знач пТекст )
+	
+	регулярноеВыражение = Новый РегулярноеВыражение( "(@(?:""[^""]*"")+|""(?:[^""\n\\]+|\\.)*""|'(?:[^'\n\\]+|\\.)*')|//.*|/\*(?s:.*?)\*/" );
+	
+	ЗначениеБезКомментариев = регулярноеВыражение.Заменить(пТекст, "$1" );
+
+	// После удаления комментария могли остаться пустые строки
+	Пока СтрНайти( ЗначениеБезКомментариев, Символы.LF + Символы.LF ) > 0 Цикл
+		ЗначениеБезКомментариев = СтрЗаменить( ЗначениеБезКомментариев, Символы.LF + Символы.LF, Символы.LF )
+	КонецЦикла;
+
+	Возврат ЗначениеБезКомментариев;
+
+КонецФункции
+
 Функция jsonПрочитать(Значение, Стандарт, Альтернативный, ПредставленияСсылок, Индекс, Длина, ВспомогательныеДанные, СимволыФорматирования, ПервыйУровень)
 
 	Символ = Сред(Значение, Индекс, 1);

tasks/test.os

@@ -0,0 +1,82 @@
+#Использовать ".."
+#Использовать 1bdd
+#Использовать 1testrunner
+
+Функция ПрогнатьТесты()
+	
+	Тестер = Новый Тестер;
+
+	ПутьКТестам = ОбъединитьПути(ТекущийСценарий().Каталог, "..", "tests");
+	ПутьКОтчетуJUnit = ОбъединитьПути(ТекущийСценарий().Каталог, "..");
+
+	КаталогТестов = Новый Файл(ПутьКТестам);
+	Если Не КаталогТестов.Существует() Тогда
+		Сообщить(СтрШаблон("Не найден каталог тестов %1", ПутьКТестам));
+		Возврат Истина;
+	КонецЕсли;
+
+	РезультатТестирования = Тестер.ТестироватьКаталог(
+		КаталогТестов,
+		Новый Файл(ПутьКОтчетуJUnit)
+	);
+
+	Успешно = РезультатТестирования = 0;
+	
+	Возврат Успешно;
+КонецФункции // ПрогнатьТесты()
+
+Функция ПрогнатьФичи()
+	
+	ПутьОтчетаJUnit = "./bdd-log.xml";
+
+	КаталогФич = ОбъединитьПути(".", "features");
+
+	Файл_КаталогФич = Новый Файл(КаталогФич);
+	Если Не Файл_КаталогФич.Существует() Тогда
+		Сообщить(СтрШаблон("Не найден каталог фич %1", КаталогФич));
+		Возврат Истина;
+	КонецЕсли;
+
+	ИсполнительБДД = Новый ИсполнительБДД;
+	РезультатыВыполнения = ИсполнительБДД.ВыполнитьФичу(Файл_КаталогФич, Файл_КаталогФич);
+	ИтоговыйРезультатВыполнения = ИсполнительБДД.ПолучитьИтоговыйСтатусВыполнения(РезультатыВыполнения);
+
+	СтатусВыполнения = ИсполнительБДД.ВозможныеСтатусыВыполнения().НеВыполнялся;
+	Если РезультатыВыполнения.Строки.Количество() > 0 Тогда
+		
+		СтатусВыполнения = ИсполнительБДД.ПолучитьИтоговыйСтатусВыполнения(РезультатыВыполнения);
+		
+	КонецЕсли;
+
+	ГенераторОтчетаJUnit = Новый ГенераторОтчетаJUnit;
+	ГенераторОтчетаJUnit.Сформировать(РезультатыВыполнения, СтатусВыполнения, ПутьОтчетаJUnit);
+
+	Сообщить(СтрШаблон("Результат прогона фич <%1>
+	|", ИтоговыйРезультатВыполнения));
+
+	Возврат ИтоговыйРезультатВыполнения <> ИсполнительБДД.ВозможныеСтатусыВыполнения().Сломался;
+КонецФункции // ПрогнатьФичи()
+
+Попытка
+	ТестыПрошли = ПрогнатьТесты();
+
+Исключение
+	ТестыПрошли = Ложь;
+	Сообщить(СтрШаблон("Тесты через 1testrunner выполнены неудачно
+	|%1", ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())));
+КонецПопытки;
+
+Попытка
+	ФичиПрошли = ПрогнатьФичи();
+Исключение
+	ФичиПрошли = Ложь;
+	Сообщить(СтрШаблон("Тесты поведения через 1bdd выполнены неудачно
+	|%1", ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())));
+КонецПопытки;
+
+Если Не ТестыПрошли Или Не ФичиПрошли Тогда
+	ВызватьИсключение "Тестирование завершилось неудачно!";
+Иначе
+	Сообщить(СтрШаблон("Результат прогона тестов <%1>
+	|", ТестыПрошли));
+КонецЕсли;