СтрНайти сделано совместимо с платформой +тесты

Author: Mr-Rm

src/OneScript.StandardLibrary/StringOperations.cs

@@ -138,10 +138,13 @@ public int StrCompare(string first, string second)
         /// <param name="occurance">Указывает номер вхождения искомой подстроки в исходной строке</param>
         /// <returns>Позицию искомой строки в исходной строке. Возвращает 0, если подстрока не найдена.</returns>
         [ContextMethod("СтрНайти", "StrFind")]
-        public int StrFind(string haystack, string needle, SearchDirection direction = SearchDirection.FromBegin, int startPos = 0, int occurance = 0)
+        public int StrFind(string haystack, string needle, SearchDirection direction = SearchDirection.FromBegin, int startPos = 0, int occurance = 1)
         {
+            if (needle.Length == 0)
+                return 1;
+
             int len = haystack.Length;
-            if (len == 0 || needle.Length == 0)
+            if (len == 0)
                 return 0;
 
             bool fromBegin = direction == SearchDirection.FromBegin;
@@ -150,12 +153,13 @@ public int StrFind(string haystack, string needle, SearchDirection direction = S
             {
                 startPos = fromBegin ? 1 : len;
             }
+            else if (startPos < 1 || startPos > len)
+                throw RuntimeException.InvalidNthArgumentValue(4);
 
-            if (startPos < 1 || startPos > len)
-                throw RuntimeException.InvalidArgumentValue();
-
-            if (occurance == 0)
-                occurance = 1;
+            if (occurance < 0)
+                return 0;
+            else if (occurance == 0)
+                throw RuntimeException.InvalidNthArgumentValue(5);
 
             int startIndex = startPos - 1;
             int foundTimes = 0;
@@ -174,7 +178,6 @@ public int StrFind(string haystack, string needle, SearchDirection direction = S
                     if (startIndex >= len)
                         break;
                 }
-
             }
             else
             {
@@ -189,13 +192,9 @@ public int StrFind(string haystack, string needle, SearchDirection direction = S
                     if (startIndex < 0)
                         break;
                 }
-
             }
 
-            if (foundTimes == occurance)
-                return index + 1;
-            else
-                return 0;
+            return foundTimes == occurance ? index + 1 : 0;
         }
 
         /// <summary>

tests/stringoperations.os

@@ -48,6 +48,13 @@
 	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_ВтороеВхождениеСНачала");
 	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_ВтороеВхождениеСКонца");
 	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_ВтороеВхождениеСКонцаНачинаяСПредпоследнегоСимвола");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СПустойСтрокой");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СПустойПодстрокойПоиска");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СПропущеннымиСтроками");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СНевернойНачальнойПозицией");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СНулевымЧисломВхождений");
+	ВсеТесты.Добавить("ТестДолжен_ВызватьМетод_СтрНайти_СОтрицательнымЧисломВхождений");
+		
 	ВсеТесты.Добавить("Тест_ДолженПроверитьНСтрВозвращаетПервуюСтроку");
 	ВсеТесты.Добавить("ТестДолжен_Проверить_Что_НСТР_С_СуществующимПараметром_ВозвращаетНужнуюСтроку");
 	ВсеТесты.Добавить("ТестДолжен_Проверить_Что_НСТР_С_НесуществующимПараметром_ВозвращаетПустуюСтроку");
@@ -459,6 +466,69 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СПустойСтрокой() Экспорт
+	
+	ГдеИщем = "";
+	ЧтоИщем = ",";
+	
+	юТест.ПроверитьРавенство(0, СтрНайти(ГдеИщем, ЧтоИщем));
+	
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СПустойПодстрокойПоиска() Экспорт
+	
+	ГдеИщем = "Один,Два,Три,";
+	ЧтоИщем = "";
+	
+	юТест.ПроверитьРавенство(1, СтрНайти(ГдеИщем, ЧтоИщем));
+	
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СПропущеннымиСтроками() Экспорт
+	юТест.ПроверитьРавенство(1, СтрНайти(,));
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СНевернойНачальнойПозицией() Экспорт
+
+	ГдеИщем = "Один,Два,Три,";
+	ЧтоИщем = ",";
+
+	Попытка
+		СтрНайти(ГдеИщем, ЧтоИщем, , 999);
+	Исключение
+		юТест.ТестПройден();
+		Возврат;
+	КонецПопытки;
+	
+	юТест.ТестПровален("Ожидаемое исключение не возникло.");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СНулевымЧисломВхождений() Экспорт
+
+	ГдеИщем = "Один,Два,Три,";
+	ЧтоИщем = ",";
+
+	Попытка
+		СтрНайти(ГдеИщем, ЧтоИщем,,, 0);
+	Исключение
+		юТест.ТестПройден();
+		Возврат;
+	КонецПопытки;
+	
+	юТест.ТестПровален("Ожидаемое исключение не возникло.");
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ВызватьМетод_СтрНайти_СОтрицательнымЧисломВхождений() Экспорт
+	
+	ГдеИщем = "Один,Два,Три,";
+	ЧтоИщем = ",";
+	
+	юТест.ПроверитьРавенство(0, СтрНайти(ГдеИщем, ЧтоИщем,,, -2));
+	
+КонецПроцедуры
+
 Процедура Тест_ДолженПроверитьНСтрВозвращаетПервуюСтроку() Экспорт
 
 	Стр = НСтр("ru = 'Строка1'; en = 'Строка2'", "ru");