From da3f089e94203dd1e7c86f457d9faf4c2293d5d8 Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jo@mein.io>
Date: Mon, 30 May 2022 15:49:18 +0200
Subject: lib: rework uc_index() implementation

 - Fix segfault on passing string haystack with non-string needle argument
 - Perform strict equality tests against array haystacks
 - Make string searches binary safe
 - Improve left index string search performance
 - Improve right index array search performance
 - Add missing test coverage for index() and rindex()

Signed-off-by: Jo-Philipp Wich <jo@mein.io>
---
 tests/custom/03_stdlib/59_rindex | 48 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tests/custom/03_stdlib/59_rindex

(limited to 'tests/custom/03_stdlib/59_rindex')

diff --git a/tests/custom/03_stdlib/59_rindex b/tests/custom/03_stdlib/59_rindex
new file mode 100644
index 0000000..35f8d2d
--- /dev/null
+++ b/tests/custom/03_stdlib/59_rindex
@@ -0,0 +1,48 @@
+The `rindex()` function locates an element within a given array or a substring
+position within a given string, depending on the type of arguments given.
+
+Returns `null` if the given haystack argument is neither an array nor a string,
+returns `-1` if the element was not found within the array or the substring was
+not found within the string.
+
+Returns the last found index position in all other cases.
+
+-- Testcase --
+{%
+	let o = {};
+
+	printf("%.J\n", [
+		rindex([ 1, 2, "abc", 3, "abc", 1, 2 ], "abc"),	// should return 4
+		rindex([ 1, 2, 3 ], 4),							// should return -1
+		rindex([ [], {} ], {}),							// should return -1 (strict equality)
+		rindex([ [], o ], o),							// should return 1 (strict equality)
+
+		rindex("foobarfoobarfoobar", "arf"),			// should return 10
+		rindex("test", "hello"),						// should return -1
+		rindex("test", "test"),							// should return 0 (needle = haystack length special case)
+		rindex("test", ""),								// should return 4 (zero length needle special case)
+		rindex("", ""),									// should return 0 (zero length special case)
+		rindex("foo\0foo\0foo", "o\0f"),				// should return 6 (binary safe)
+
+		rindex({ test: true }, true),					// should return null
+		rindex(1234, 3),								// should return null
+	]);
+%}
+-- End --
+
+-- Expect stdout --
+[
+	4,
+	-1,
+	-1,
+	1,
+	10,
+	-1,
+	0,
+	4,
+	0,
+	6,
+	null,
+	null
+]
+-- End --
-- 
cgit v1.2.3