[DTrace-devel] [PATCH 11/14] test: Check substr() for addresses that are not DTrace pointers

[eugene.loh at oracle.com]

From: Eugene Loh <eugene.loh at oracle.com>

Signed-off-by: Eugene Loh <eugene.loh at oracle.com>
---
 .../funcs/substr/tst.substr_nonDPTR.d         | 25 +++++++++++++++++++
 .../funcs/substr/tst.substr_nonDPTR.r         |  3 +++
 2 files changed, 28 insertions(+)
 create mode 100644 test/unittest/funcs/substr/tst.substr_nonDPTR.d
 create mode 100644 test/unittest/funcs/substr/tst.substr_nonDPTR.r

diff --git a/test/unittest/funcs/substr/tst.substr_nonDPTR.d b/test/unittest/funcs/substr/tst.substr_nonDPTR.d
new file mode 100644
index 00000000..726f20a8
--- /dev/null
+++ b/test/unittest/funcs/substr/tst.substr_nonDPTR.d
@@ -0,0 +1,25 @@
+/*
+ * Oracle Linux DTrace.
+ * Copyright (c) 2022, Oracle and/or its affiliates. All rights reserved.
+ * Licensed under the Universal Permissive License v 1.0 as shown at
+ * http://oss.oracle.com/licenses/upl.
+ */
+
+#pragma D option quiet
+#pragma D option destructive
+
+BEGIN
+{
+	/* "abcdef" */
+	system("printf '\x61\x62\x63\x64\x65\x66' > /dev/null 2>&1");
+}
+
+syscall::write:entry
+/ppid == $pid/
+{
+	printf("|%s|\n", substr((void *)arg1, 1));
+	printf("|%s|\n", substr((void *)arg1, 1, 4));
+	exit(0);
+}
+
+ERROR { exit(1); }
diff --git a/test/unittest/funcs/substr/tst.substr_nonDPTR.r b/test/unittest/funcs/substr/tst.substr_nonDPTR.r
new file mode 100644
index 00000000..a862e3ce
--- /dev/null
+++ b/test/unittest/funcs/substr/tst.substr_nonDPTR.r
@@ -0,0 +1,3 @@
+|bcdef|
+|bcde|
+
-- 
2.18.4