From 2d6640ba82d5f243bcd3165fa11576a7cfee8c57 Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Tue, 20 May 2008 18:33:24 -0400
Subject: PR6538: testsuite changes

---
 testsuite/systemtap.base/warnings.exp | 2 +-
 testsuite/systemtap.base/warnings.stp | 7 +++----
 2 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'testsuite/systemtap.base')

diff --git a/testsuite/systemtap.base/warnings.exp b/testsuite/systemtap.base/warnings.exp
index 025bde89..6cff723d 100644
--- a/testsuite/systemtap.base/warnings.exp
+++ b/testsuite/systemtap.base/warnings.exp
@@ -9,7 +9,7 @@ expect {
     eof { }
 }
 wait
-if {$ok == 9} {
+if {$ok == 22} {
     pass $test
 } else {
     fail "$test ($ok)"
diff --git a/testsuite/systemtap.base/warnings.stp b/testsuite/systemtap.base/warnings.stp
index a0ce8d8d..a2ac5afc 100644
--- a/testsuite/systemtap.base/warnings.stp
+++ b/testsuite/systemtap.base/warnings.stp
@@ -1,9 +1,8 @@
-# PR 1119
+# PR 1119, 6538
 
 global elide_me1
-
 function elide_me2 () {}
-
 function foo:long () { elide_me3 = 1 }
-
+function bar() { print(elide+me1) ; ; ; }
 probe never { elide_me4 = 1; (elide_me5+5); print (foo()) }
+probe never { print(elide+me1) bar () }
-- 
cgit