[DTrace-devel] [PATCH 02/16] cpc: Add simple tests

[eugene.loh at oracle.com]

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

Signed-off-by: Eugene Loh <eugene.loh at oracle.com>
---
 test/unittest/cpc/tst.cpu_clock.d    | 47 ++++++++++++++++++++++++++++
 test/unittest/cpc/tst.cpu_clock2.d   | 42 +++++++++++++++++++++++++
 test/unittest/cpc/tst.cpu_clock2.r   |  1 +
 test/unittest/cpc/tst.cpu_clock2.r.p | 28 +++++++++++++++++
 test/unittest/cpc/tst.list_cpc.sh    | 43 +++++++++++++++++++++++++
 5 files changed, 161 insertions(+)
 create mode 100644 test/unittest/cpc/tst.cpu_clock.d
 create mode 100644 test/unittest/cpc/tst.cpu_clock2.d
 create mode 100644 test/unittest/cpc/tst.cpu_clock2.r
 create mode 100755 test/unittest/cpc/tst.cpu_clock2.r.p
 create mode 100755 test/unittest/cpc/tst.list_cpc.sh

diff --git a/test/unittest/cpc/tst.cpu_clock.d b/test/unittest/cpc/tst.cpu_clock.d
new file mode 100644
index 00000000..f1fbcf10
--- /dev/null
+++ b/test/unittest/cpc/tst.cpu_clock.d
@@ -0,0 +1,47 @@
+/*
+ * Oracle Linux DTrace.
+ * Copyright (c) 2023, 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.
+ */
+
+/* @@reinvoke-failure: 2 */
+
+/*
+ * This test is probably unstable due to possible kernel throttling issues.
+ * But on my ARM OL9 VM, it looks particularly bad due to emitting 14
+ * probes and then just stopping for a long time.
+ */
+/* @@tags: unstable */
+
+#pragma D option quiet
+
+/* count quickly (each 0.05 sec) */
+cpc:::cpu_clock-all-50000000
+/cpu == 0/
+{
+	n++;
+}
+
+/* we expect 40 counts after 2 secs */
+/* (possibly, there could be far fewer due to kernel throttling) */
+cpc:::cpu_clock-all-2000000000
+/cpu == 0 && (n < 20 || n > 42)/
+{
+	printf("count is out of range: %d (expect 40)\n", n);
+	exit(1);
+}
+
+cpc:::cpu_clock-all-2000000000
+/cpu == 0/
+{
+	printf("count is in range: %d\n", n);
+	exit(0);
+}
+
+/* or time out */
+tick-5s
+{
+	printf("time out: count is %d\n", n);
+	exit(1);
+}
diff --git a/test/unittest/cpc/tst.cpu_clock2.d b/test/unittest/cpc/tst.cpu_clock2.d
new file mode 100644
index 00000000..4e0259d9
--- /dev/null
+++ b/test/unittest/cpc/tst.cpu_clock2.d
@@ -0,0 +1,42 @@
+/*
+ * Oracle Linux DTrace.
+ * Copyright (c) 2023, 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.
+ */
+
+/* @@runtest-opts: -qC */
+
+/*
+ * Depending on how the kernel was configured, throttling can introduce
+ * occasional large gaps between cpu_clock firings.  So, measure these
+ * gaps.  None should be too low, but a few may be too high.
+ */
+
+#define PERIOD 50000000
+
+long long lasttime[int];
+
+cpc:::cpu_clock-all-PERIOD
+{
+	currtime[cpu] = timestamp;
+}
+
+cpc:::cpu_clock-all-PERIOD
+/lasttime[cpu] != 0/
+{
+	this->gap = currtime[cpu] - lasttime[cpu];
+	@["number"] = sum(1);
+	@["low" ] = sum(this->gap <  9 * (PERIOD / 10) ? 1 : 0);
+	@["high"] = sum(this->gap > 15 * (PERIOD / 10) ? 1 : 0);
+}
+
+cpc:::cpu_clock-all-PERIOD
+{
+	lasttime[cpu] = currtime[cpu];
+}
+
+tick-5s
+{
+	exit(0);
+}
diff --git a/test/unittest/cpc/tst.cpu_clock2.r b/test/unittest/cpc/tst.cpu_clock2.r
new file mode 100644
index 00000000..2e9ba477
--- /dev/null
+++ b/test/unittest/cpc/tst.cpu_clock2.r
@@ -0,0 +1 @@
+success
diff --git a/test/unittest/cpc/tst.cpu_clock2.r.p b/test/unittest/cpc/tst.cpu_clock2.r.p
new file mode 100755
index 00000000..c2628b69
--- /dev/null
+++ b/test/unittest/cpc/tst.cpu_clock2.r.p
@@ -0,0 +1,28 @@
+#!/usr/bin/gawk -f
+
+BEGIN { number = low = high = -1; }
+
+/number/ { number = $2 }
+/low/ { low = $2 }
+/high/ { high = $2 }
+
+END {
+        if (number == -1 || low == -1 || high == -1) {
+                printf("missing data\n");
+                exit(1);
+        }
+        if (number < 20 ) {
+                printf("too few data\n");
+                exit(1);
+        }
+        if (low != 0 ) {
+                printf("some data too low\n");
+                exit(1);
+        }
+        if (high > number / 10 ) {
+                printf("too much data too high\n");
+                exit(1);
+        }
+        printf("success\n");
+        exit(0);
+}
diff --git a/test/unittest/cpc/tst.list_cpc.sh b/test/unittest/cpc/tst.list_cpc.sh
new file mode 100755
index 00000000..4455ea49
--- /dev/null
+++ b/test/unittest/cpc/tst.list_cpc.sh
@@ -0,0 +1,43 @@
+#!/bin/bash
+#
+# Oracle Linux DTrace.
+# Copyright (c) 2023, 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.
+
+dtrace=$1
+tmpfile=$tmpdir/tst.list_cpc.$$
+mkdir $tmpfile
+cd $tmpfile
+
+$dtrace $dt_flags -lP cpc > out.txt 2> err.txt
+if [ $? -ne 0 ]; then
+	echo "DTrace error"
+	echo "==== out.txt"
+	cat out.txt
+	echo "==== err.txt"
+	cat err.txt
+	exit 1
+fi
+
+awk '
+BEGIN { cpu_clock = task_clock = 0 }
+$2 == "cpc" && index($3, "perf_count_sw_cpu_clock-") { cpu_clock = 1; next }
+$2 == "cpc" && index($3, "perf_count_sw_task_clock-") { task_clock = 1; next }
+END {
+	if (cpu_clock && task_clock) exit(0);
+	if (cpu_clock == 0) { print "missing CPU clock" }
+	if (task_clock == 0) { print "missing task clock" }
+	exit(1);
+}' out.txt
+
+if [ $? -ne 0 ]; then
+	echo "unexpected results"
+	echo "==== out.txt"
+	cat out.txt
+	echo "==== err.txt"
+	cat err.txt
+	exit 1
+fi
+
+exit 0
-- 
2.18.4