diff options
| author | William Cohen <wcohen@redhat.com> | 2009-01-29 16:55:06 -0500 |
|---|---|---|
| committer | William Cohen <wcohen@redhat.com> | 2009-01-29 16:55:06 -0500 |
| commit | 9fbda39bf7687ceeee28813f30f6e3ec5c72fc5d (patch) | |
| tree | 591d46a22865cb745e368ca4325bf95ad93e7f70 /testsuite/systemtap.base/control_limits.exp | |
| parent | 8da0793017c9871b96cb9695ab10e9fa040c0a03 (diff) | |
| download | systemtap-steved-9fbda39bf7687ceeee28813f30f6e3ec5c72fc5d.tar.gz systemtap-steved-9fbda39bf7687ceeee28813f30f6e3ec5c72fc5d.tar.xz systemtap-steved-9fbda39bf7687ceeee28813f30f6e3ec5c72fc5d.zip | |
Move some systemtap.sample tests to systemtap.base.
Diffstat (limited to 'testsuite/systemtap.base/control_limits.exp')
| -rw-r--r-- | testsuite/systemtap.base/control_limits.exp | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/testsuite/systemtap.base/control_limits.exp b/testsuite/systemtap.base/control_limits.exp new file mode 100644 index 00000000..513b2c4d --- /dev/null +++ b/testsuite/systemtap.base/control_limits.exp @@ -0,0 +1,46 @@ +set test "control_limits MAXNESTING" +if {![installtest_p]} { untested $test; return } + +spawn stap -u -DMAXNESTING=5 $srcdir/$subdir/control_limits.stp +set ok 0 +expect { + -timeout 150 + -re {ERROR.*MAXNESTING} { incr ok; exp_continue } + timeout { fail "$test (timeout)" } + eof { } +} +if {$ok == 1} { pass "$test ($ok)" } { fail "$test ($ok)" } + +set test "control_limits MAXACTION" +spawn stap -u -DMAXACTION_INTERRUPTIBLE=500 $srcdir/$subdir/control_limits.stp +set ok 0 +expect { + -timeout 150 + -re {ERROR.*MAXACTION} { incr ok; exp_continue } + timeout { fail "$test (timeout)" } + eof { } +} +if {$ok == 1} { pass "$test ($ok)" } { fail "$test ($ok)" } + +set test "control_limits MAXSTRINGLEN small" +spawn stap -u -DMAXSTRINGLEN=50 $srcdir/$subdir/control_limits.stp +set ok 0 +expect { + -timeout 150 + -re {ERROR.*MAXSTRINGLEN reduced} { incr ok; exp_continue } + timeout { fail "$test (timeout)" } + eof { } +} +if {$ok == 1} { pass "$test ($ok)" } { fail "$test ($ok)" } + +set test "control_limits MAXSTRINGLEN large" +spawn stap -u -DMAXSTRINGLEN=500 $srcdir/$subdir/control_limits.stp +set ok 0 +expect { + -timeout 150 + -re {ERROR.*MAXSTRINGLEN enlarged} { incr ok; exp_continue } + timeout { fail "$test (timeout)" } + eof { } +} +if {$ok == 1} { pass "$test ($ok)" } { fail "$test ($ok)" } + |