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.samples/gtod.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.samples/gtod.exp')
-rw-r--r-- | testsuite/systemtap.samples/gtod.exp | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/testsuite/systemtap.samples/gtod.exp b/testsuite/systemtap.samples/gtod.exp deleted file mode 100644 index a8f3c9d6..00000000 --- a/testsuite/systemtap.samples/gtod.exp +++ /dev/null @@ -1,40 +0,0 @@ -# test for checking monotonic timer (PR3916) -set test "gtod" -if {![installtest_p]} { untested $test; continue } - -set wd [pwd] -set filename "$srcdir/$subdir/gtod.c" - -target_compile $filename $wd/gtod executable "" - -# non interval (check timer drift in short range) -spawn $srcdir/$subdir/gtod.sh $srcdir/$subdir/gtod.stp $wd/gtod -set ok 0 -expect { - -timeout 120 - -re {^[0-9]+ \:([0-9]+) appl\r\n[0-9]+ \:\1 kern\r\n[0-9]+ \:\1 prog\r\n} { incr ok; exp_continue } - timeout { fail "$test (timeout)" } - eof { } -} -wait -#10ms interval (check timer drift in middle range) -spawn $srcdir/$subdir/gtod.sh $srcdir/$subdir/gtod.stp $wd/gtod 10000 -expect { - -timeout 120 - -re {^[0-9]+ \:([0-9]+) appl\r\n[0-9]+ \:\1 kern\r\n[0-9]+ \:\1 prog\r\n} { incr ok; exp_continue } - timeout { fail "$test (timeout)" } - eof { } -} -wait -#100ms interval (calm down processors and CPU freq might be changed) -spawn $srcdir/$subdir/gtod.sh $srcdir/$subdir/gtod.stp $wd/gtod 100000 -expect { - -timeout 120 - -re {^[0-9]+ \:([0-9]+) appl\r\n[0-9]+ \:\1 kern\r\n[0-9]+ \:\1 prog\r\n} { incr ok; exp_continue } - timeout { fail "$test (timeout)" } - eof { } -} -wait -exec rm -f $wd/gtod -if {$ok == 300} { pass "$test ($ok)" } { fail "$test ($ok)" } - |