diff --git a/Zend/tests/strlen_enum.phpt b/Zend/tests/strlen_enum.phpt
new file mode 100644
index 0000000000000..2812a5e6625ee
--- /dev/null
+++ b/Zend/tests/strlen_enum.phpt
@@ -0,0 +1,26 @@
+--TEST--
+strlen() with an enum argument
+--SKIPIF--
+<?php
+//Skip if PHP version < 8.1
+if (PHP_VERSION_ID < 80100) {
+    die("skip enums not supported\n");
+}
+?>
+--FILE--
+<?php
+//Test that passing an enum case to strlen() throws a TypeError
+
+enum E {
+    case A;
+}
+
+try {
+    strlen(E::A);
+} catch (Throwable $e) {
+    echo $e->getMessage(), "\n";
+}
+
+?>
+--EXPECTF--
+strlen(): Argument #1 ($string) must be of type string, %s given
diff --git a/Zend/tests/strlen_object_without_tostring.phpt b/Zend/tests/strlen_object_without_tostring.phpt
new file mode 100644
index 0000000000000..81112328a2612
--- /dev/null
+++ b/Zend/tests/strlen_object_without_tostring.phpt
@@ -0,0 +1,14 @@
+--TEST--
+strlen() with an object without __toString()
+--FILE--
+<?php
+
+try {
+    strlen(new stdClass());
+} catch (Throwable $e) {
+    echo $e->getMessage(), "\n";
+}
+
+?>
+--EXPECTF--
+strlen(): Argument #1 ($string) must be of type string, %s given
diff --git a/Zend/tests/strlen_resource.phpt b/Zend/tests/strlen_resource.phpt
new file mode 100644
index 0000000000000..d3f0043ed41d8
--- /dev/null
+++ b/Zend/tests/strlen_resource.phpt
@@ -0,0 +1,16 @@
+--TEST--
+strlen() with a resource argument
+--FILE--
+<?php
+//Test that passing a resource to strlen() throws a TypeError
+
+$fp = fopen(__FILE__, 'r');
+try {
+    strlen($fp);
+} catch (Throwable $e) {
+    echo $e->getMessage(), "\n";
+}
+fclose($fp);
+?>
+--EXPECTF--
+strlen(): Argument #1 ($string) must be of type string, %s given