Added tests for utrace-syscall probe context variables.

8 files changed, 32 insertions, 0 deletions

diff --git a/testsuite/semko/utrace15.stp b/testsuite/semko/utrace15.stp
new file mode 100755
index 00000000..56d91e89
--- /dev/null
+++ b/testsuite/semko/utrace15.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# write to $argN
+probe process("/bin/cat").syscall { $arg1 = 1 }
diff --git a/testsuite/semko/utrace16.stp b/testsuite/semko/utrace16.stp
new file mode 100755
index 00000000..f88923d6
--- /dev/null
+++ b/testsuite/semko/utrace16.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $argN as a pointer
+probe process("/bin/cat").syscall { print($arg1->foo) }
diff --git a/testsuite/semko/utrace17.stp b/testsuite/semko/utrace17.stp
new file mode 100755
index 00000000..3a296dff
--- /dev/null
+++ b/testsuite/semko/utrace17.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $argN as an array
+probe process("/bin/cat").syscall { print($arg1[0]) }
diff --git a/testsuite/semko/utrace18.stp b/testsuite/semko/utrace18.stp
new file mode 100755
index 00000000..5d4960db
--- /dev/null
+++ b/testsuite/semko/utrace18.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# write to $return
+probe process("/bin/cat").syscall.return { $return = 1 }
diff --git a/testsuite/semko/utrace19.stp b/testsuite/semko/utrace19.stp
new file mode 100755
index 00000000..3d30dc5e
--- /dev/null
+++ b/testsuite/semko/utrace19.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# access to $return from syscall entry
+probe process("/bin/cat").syscall { print($return) }
diff --git a/testsuite/semko/utrace20.stp b/testsuite/semko/utrace20.stp
new file mode 100755
index 00000000..15fdc4c5
--- /dev/null
+++ b/testsuite/semko/utrace20.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $return as an array
+probe process("/bin/cat").syscall { print($return[0]) }
diff --git a/testsuite/semko/utrace21.stp b/testsuite/semko/utrace21.stp
new file mode 100755
index 00000000..aa29ec59
--- /dev/null
+++ b/testsuite/semko/utrace21.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $return as a pointer/structure
+probe process("/bin/cat").syscall.return { print($return->foo) }
diff --git a/testsuite/semko/utrace22.stp b/testsuite/semko/utrace22.stp
new file mode 100755
index 00000000..710810f6
--- /dev/null
+++ b/testsuite/semko/utrace22.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# access to $argN from syscall return
+probe process("/bin/cat").syscall.return { print($arg1) }