From 4b9d5d765ac51edf11bb0254c1506f6ce52b705b Mon Sep 17 00:00:00 2001
From: David Smith <dsmith@redhat.com>
Date: Wed, 12 Nov 2008 12:29:36 -0600
Subject: Improved error handling of num_args.tcl testcase. 2008-11-12  David
 Smith  <dsmith@redhat.com>

	* systemtap.context/num_args.tcl: Improved error handling of
	testcase.
---
 testsuite/systemtap.context/num_args.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'testsuite/systemtap.context')

diff --git a/testsuite/systemtap.context/num_args.tcl b/testsuite/systemtap.context/num_args.tcl
index 48e83f4d..7d12b433 100644
--- a/testsuite/systemtap.context/num_args.tcl
+++ b/testsuite/systemtap.context/num_args.tcl
@@ -54,9 +54,12 @@ expect {
 	    timeout {fail "string function arguments -- $tag"}
 	}
     }
+    -re "semantic error:" {
+	fail "function arguments -- $tag: compilation failed"
+    }
     eof {fail "function arguments -- $tag: unexpected timeout"}
 }
 exec kill -INT -[exp_pid]
-close
+catch close
 wait
 }
-- 
cgit