From 55192c252779817ac75867425ed7bab94de5f4fb Mon Sep 17 00:00:00 2001
From: hunt <hunt>
Date: Wed, 23 May 2007 21:40:06 +0000
Subject: 2007-05-23  Martin Hunt  <hunt@redhat.com>

	* systemtap.samples/system_func.exp: Fix pattern anchoring.
---
 testsuite/systemtap.samples/system_func.exp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'testsuite/systemtap.samples')

diff --git a/testsuite/systemtap.samples/system_func.exp b/testsuite/systemtap.samples/system_func.exp
index 0128b181..7847904a 100644
--- a/testsuite/systemtap.samples/system_func.exp
+++ b/testsuite/systemtap.samples/system_func.exp
@@ -1,15 +1,15 @@
 set test "system_func"
-if {![installtest_p]} { untested $test; return }
+#if {![installtest_p]} { untested $test; return }
 spawn stap $srcdir/$subdir/system_func.stp
 set open 0
 set done 0
 set saw_user 0
 set user [exec whoami]
-set timeout 30
 expect {
-    -re "$user\[^\r\]\*\r\n" {incr saw_user; exp_continue}
-    -re {sys_open[^\r]*\r\n} {incr open; exp_continue }
-    -re {DONE[^\r]*\r\n} {incr done; exp_continue }
+    -timeout 30
+    -re "^$user\[^\r\]*\[\r\n\]*" {incr saw_user; exp_continue}
+    -re {^sys_open[^\r]*[\r\n]*} {incr open; exp_continue }
+    -re {DONE[^\r]*[\r\n]*} {incr done; exp_continue }
     timeout { fail "$test (timeout)" }
     eof { }
 }
-- 
cgit