From 1d4cb9b5f957bd3825fd1f0cfa1df1c24a07164d Mon Sep 17 00:00:00 2001
From: Mark Wielaard <mjw@redhat.com>
Date: Sun, 8 Mar 2009 23:23:35 +0100
Subject: Make stap_run2 count exact number of lines.

* testsuite/lib/stap_run2.exp: Compare found and expected number of lines.
* testsuite/systemtap.*/*.exp (result_string): Make number of lines exact.
---
 testsuite/lib/stap_run2.exp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'testsuite/lib/stap_run2.exp')

diff --git a/testsuite/lib/stap_run2.exp b/testsuite/lib/stap_run2.exp
index 9849aefb..cb1c6615 100644
--- a/testsuite/lib/stap_run2.exp
+++ b/testsuite/lib/stap_run2.exp
@@ -29,5 +29,10 @@ proc stap_run2 { TEST_NAME args } {
 	}
 	incr n
     }
-    pass "$TEST_NAME"
+    if {[expr $n == [llength $expected]]} {
+      pass "$TEST_NAME"
+    } else {
+      fail "$TEST_NAME"
+      send_log "too few lines of output, got $n, expected [llength $expected]\n"
+    }
 }
-- 
cgit