From 9fbda39bf7687ceeee28813f30f6e3ec5c72fc5d Mon Sep 17 00:00:00 2001
From: William Cohen <wcohen@redhat.com>
Date: Thu, 29 Jan 2009 16:55:06 -0500
Subject: Move some systemtap.sample tests to systemtap.base.

---
 testsuite/systemtap.base/control_limits.stp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 testsuite/systemtap.base/control_limits.stp

(limited to 'testsuite/systemtap.base/control_limits.stp')

diff --git a/testsuite/systemtap.base/control_limits.stp b/testsuite/systemtap.base/control_limits.stp
new file mode 100644
index 00000000..89b0bae4
--- /dev/null
+++ b/testsuite/systemtap.base/control_limits.stp
@@ -0,0 +1,24 @@
+
+# for MAXNESTING testing
+function recurse (n) {
+  if (n > 0) recurse (n-1)
+}
+probe begin {
+  recurse (7)
+}
+
+# for MAXACTION testing
+probe begin {
+  for (i=0; i<498; i++) {}
+}
+
+# for MAXSTRINGLEN testing
+probe begin {
+  s = "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678" # last 8 will be \0'd
+  if (strlen(s) < 127) error ("MAXSTRINGLEN reduced")
+  if (strlen(s) > 127) error ("MAXSTRINGLEN enlarged")
+}
+
+
+probe begin { exit () }
+
-- 
cgit