6 files changed, 198 insertions, 0 deletions
diff --git a/tests/custom/03_stdlib/56_hexdec b/tests/custom/03_stdlib/56_hexdec
new file mode 100644
index 0000000..cb842ca
--- /dev/null
+++ b/tests/custom/03_stdlib/56_hexdec
@@ -0,0 +1,29 @@
+The `hexdec()` function decodes the given hexadecimal digit string into
+a byte string, optionally skipping specified characters.
+
+Returns null if the input string contains invalid characters or an uneven
+amount of hex digits.
+
+Returns the decoded byte string on success.
+
+-- Testcase --
+{%
+	printf("%.J\n", [
+		hexdec("44 55 66 77 33 44\n"),   	// whitespace is skipped by default
+		hexdec("44-55-66:77-33-44", ":-"),	// skip specified characters
+		hexdec("abc"),						// error; uneven amount of digits
+		hexdec("ab cd !"),					// error; non-whitespace, non-hex, non-skipped char
+		hexdec(1234),						// error; non-string input
+	]);
+%}
+-- End --
+
+-- Expect stdout --
+[
+	"DUfw3D",
+	"DUfw3D",
+	null,
+	null,
+	null
+]
+-- End --
diff --git a/tests/custom/03_stdlib/57_hexenc b/tests/custom/03_stdlib/57_hexenc
new file mode 100644
index 0000000..235ad66
--- /dev/null
+++ b/tests/custom/03_stdlib/57_hexenc
@@ -0,0 +1,24 @@
+The `hexenc()` function encodes the given byte string into a hexadecimal
+digit string, converting the input value to a string if needed.
+
+Returns the encoded hexadecimal digit string.
+
+-- Testcase --
+{%
+	printf("%.J\n", [
+		hexenc("Hello world!\n"),  	// encoding a simple string
+		hexenc(""),  				// empty input -> empty output
+		hexenc([1, 2, 3]),  		// implicit stringification
+		hexenc(null),  				// null input -> null output
+	]);
+%}
+-- End --
+
+-- Expect stdout --
+[
+	"48656c6c6f20776f726c64210a",
+	"",
+	"5b20312c20322c2033205d",
+	null
+]
+-- End --
diff --git a/tests/custom/03_stdlib/58_index b/tests/custom/03_stdlib/58_index
new file mode 100644
index 0000000..30c5146
--- /dev/null
+++ b/tests/custom/03_stdlib/58_index
@@ -0,0 +1,48 @@
+The `index()` 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 first found index position in all other cases.
+
+-- Testcase --
+{%
+	let o = {};
+
+	printf("%.J\n", [
+		index([ 1, 2, "abc", 3, "abc", 1, 2 ], "abc"),	// should return 2
+		index([ 1, 2, 3 ], 4),							// should return -1
+		index([ [], {} ], {}),							// should return -1 (strict equality)
+		index([ [], o ], o),							// should return 1 (strict equality)
+
+		index("foobarfoobarfoobar", "arf"),				// should return 4
+		index("test", "hello"),							// should return -1
+		index("test", "test"),							// should return 0 (needle = haystack length special case)
+		index("test", ""),								// should return 0 (zero length needle special case)
+		index("", ""),									// should return 0 (zero length special case)
+		index("foo\0foo\0foo", "o\0f"),					// should return 2 (binary safe)
+
+		index({ test: true }, true),					// should return null
+		index(1234, 3),									// should return null
+	]);
+%}
+-- End --
+
+-- Expect stdout --
+[
+	2,
+	-1,
+	-1,
+	1,
+	4,
+	-1,
+	0,
+	0,
+	0,
+	2,
+	null,
+	null
+]
+-- End --
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 --
diff --git a/tests/custom/04_bugs/37_compiler_unexpected_unary_op b/tests/custom/04_bugs/37_compiler_unexpected_unary_op
new file mode 100644
index 0000000..e652319
--- /dev/null
+++ b/tests/custom/04_bugs/37_compiler_unexpected_unary_op
@@ -0,0 +1,21 @@
+When compiling expressions followed by a unary operator, the compiler
+triggered a segmentation fault due to invoking an unset infix parser
+routine.
+
+-- Testcase --
+1~1
+-- End --
+
+-- Args --
+-R
+-- End --
+
+-- Expect stderr --
+Syntax error: Expecting ';' or binary operator
+In line 1, byte 2:
+
+ `1~1`
+   ^-- Near here
+
+
+-- End --
diff --git a/tests/custom/04_bugs/38_index_segfault b/tests/custom/04_bugs/38_index_segfault
new file mode 100644
index 0000000..e29b99f
--- /dev/null
+++ b/tests/custom/04_bugs/38_index_segfault
@@ -0,0 +1,28 @@
+When index() or rindex() was invoked with a string haystack and a non-
+string needle argument, a segmentation fault occurred due to an internal
+strlen() invocation on a NULL pointer.
+
+-- Testcase --
+print(index("abc", []), "\n")
+-- End --
+
+-- Args --
+-R
+-- End --
+
+-- Expect stdout --
+-1
+-- End --
+
+
+-- Testcase --
+print(rindex("abc", []), "\n")
+-- End --
+
+-- Args --
+-R
+-- End --
+
+-- Expect stdout --
+-1
+-- End --