Added new utrace tests.

2008-04-17  David Smith  <dsmith@redhat.com>

	* buildok/utrace01.stp: New test.
	* buildok/utrace02.stp: Ditto.
	* buildok/utrace03.stp: Ditto.
	* semko/utrace01.stp: Ditto.
	* semko/utrace02.stp: Ditto.
	* semko/utrace03.stp: Ditto.
	* semko/utrace04.stp: Ditto.
	* semko/utrace05.stp: Ditto.
	* semko/utrace06.stp: Ditto.
	* semko/utrace07.stp: Ditto.
	* semko/utrace08.stp: Ditto.
	* semko/utrace09.stp: Ditto.
	* semko/utrace10.stp: Ditto.
	* semko/utrace11.stp: Ditto.
	* semko/utrace12.stp: Ditto.
	* semko/utrace13.stp: Ditto.

17 files changed, 89 insertions, 0 deletions

diff --git a/testsuite/ChangeLog b/testsuite/ChangeLog
index 8bfb1ce4..afd3140c 100644
--- a/testsuite/ChangeLog
+++ b/testsuite/ChangeLog
@@ -1,3 +1,22 @@
+2008-04-17  David Smith  <dsmith@redhat.com>
+
+	* buildok/utrace01.stp: New test.
+	* buildok/utrace02.stp: Ditto.
+	* buildok/utrace03.stp: Ditto.
+	* semko/utrace01.stp: Ditto.
+	* semko/utrace02.stp: Ditto.
+	* semko/utrace03.stp: Ditto.
+	* semko/utrace04.stp: Ditto.
+	* semko/utrace05.stp: Ditto.
+	* semko/utrace06.stp: Ditto.
+	* semko/utrace07.stp: Ditto.
+	* semko/utrace08.stp: Ditto.
+	* semko/utrace09.stp: Ditto.
+	* semko/utrace10.stp: Ditto.
+	* semko/utrace11.stp: Ditto.
+	* semko/utrace12.stp: Ditto.
+	* semko/utrace13.stp: Ditto.
+
 2008-04-10  Frank Ch. Eigler  <fche@elastic.org>
 
 	PR 2949
diff --git a/testsuite/buildok/utrace01.stp b/testsuite/buildok/utrace01.stp
new file mode 100755
index 00000000..e363420d
--- /dev/null
+++ b/testsuite/buildok/utrace01.stp
@@ -0,0 +1,5 @@
+#! stap -p4
+
+probe process("/bin/ls").clone {
+      print("ls clone")
+}
diff --git a/testsuite/buildok/utrace02.stp b/testsuite/buildok/utrace02.stp
new file mode 100755
index 00000000..26ccdf2a
--- /dev/null
+++ b/testsuite/buildok/utrace02.stp
@@ -0,0 +1,5 @@
+#! stap -p4
+
+probe process("/bin/ls").death {
+      print("ls death")
+}
diff --git a/testsuite/buildok/utrace03.stp b/testsuite/buildok/utrace03.stp
new file mode 100755
index 00000000..a0a65312
--- /dev/null
+++ b/testsuite/buildok/utrace03.stp
@@ -0,0 +1,8 @@
+#! stap -p4
+
+probe process("/bin/ls").syscall {
+      printf("|%d", $syscall)
+}
+probe process("/bin/ls").syscall.return {
+      print("+\n")
+}
diff --git a/testsuite/semko/utrace01.stp b/testsuite/semko/utrace01.stp
new file mode 100755
index 00000000..a4707008
--- /dev/null
+++ b/testsuite/semko/utrace01.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# missing process NAME|PID
+probe process.death { }
diff --git a/testsuite/semko/utrace02.stp b/testsuite/semko/utrace02.stp
new file mode 100755
index 00000000..1cb4227f
--- /dev/null
+++ b/testsuite/semko/utrace02.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# process NAME must be a string
+probe process(/bin/cat).death { }
diff --git a/testsuite/semko/utrace03.stp b/testsuite/semko/utrace03.stp
new file mode 100755
index 00000000..c682410b
--- /dev/null
+++ b/testsuite/semko/utrace03.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# invalid probe type
+probe process("/bin/cat").death.return { }
diff --git a/testsuite/semko/utrace04.stp b/testsuite/semko/utrace04.stp
new file mode 100755
index 00000000..6345f9f6
--- /dev/null
+++ b/testsuite/semko/utrace04.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# death probes don't support target symbols
+probe process("/bin/cat").death.return { print($syscall) }
diff --git a/testsuite/semko/utrace05.stp b/testsuite/semko/utrace05.stp
new file mode 100755
index 00000000..e99fd22f
--- /dev/null
+++ b/testsuite/semko/utrace05.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# can't write to $syscall
+probe process("/bin/cat").syscall { $syscall = 1 }
diff --git a/testsuite/semko/utrace06.stp b/testsuite/semko/utrace06.stp
new file mode 100755
index 00000000..19e6043b
--- /dev/null
+++ b/testsuite/semko/utrace06.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $syscall as a pointer
+probe process("/bin/cat").syscall { print($syscall->foo) }
diff --git a/testsuite/semko/utrace07.stp b/testsuite/semko/utrace07.stp
new file mode 100755
index 00000000..2a9405b3
--- /dev/null
+++ b/testsuite/semko/utrace07.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# treat $syscall as an array
+probe process("/bin/cat").syscall { print($syscall[0]) }
diff --git a/testsuite/semko/utrace08.stp b/testsuite/semko/utrace08.stp
new file mode 100755
index 00000000..a558a5be
--- /dev/null
+++ b/testsuite/semko/utrace08.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# process path must be absolute
+probe process("cat").death { }
diff --git a/testsuite/semko/utrace09.stp b/testsuite/semko/utrace09.stp
new file mode 100755
index 00000000..60c49cd2
--- /dev/null
+++ b/testsuite/semko/utrace09.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# process path must be absolute
+probe process("/foo/../bar").death { }
diff --git a/testsuite/semko/utrace10.stp b/testsuite/semko/utrace10.stp
new file mode 100755
index 00000000..b46baea9
--- /dev/null
+++ b/testsuite/semko/utrace10.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# path can't contain an empty component
+probe process("/foo//bar").death { }
diff --git a/testsuite/semko/utrace11.stp b/testsuite/semko/utrace11.stp
new file mode 100755
index 00000000..d78b602c
--- /dev/null
+++ b/testsuite/semko/utrace11.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# path can't end with '/'
+probe process("/foo/bar/").death { }
diff --git a/testsuite/semko/utrace12.stp b/testsuite/semko/utrace12.stp
new file mode 100755
index 00000000..478aa1d3
--- /dev/null
+++ b/testsuite/semko/utrace12.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# path can't end with '.'
+probe process("/foo/bar/.").death { }
diff --git a/testsuite/semko/utrace13.stp b/testsuite/semko/utrace13.stp
new file mode 100755
index 00000000..16cc0391
--- /dev/null
+++ b/testsuite/semko/utrace13.stp
@@ -0,0 +1,4 @@
+#! stap -p2
+
+# path can't end with '..'
+probe process("/foo/bar/..").death { }