[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Print TCL error information
From: |
Daniel Jacobowitz |
Subject: |
Print TCL error information |
Date: |
Thu, 4 Mar 2004 15:27:08 -0500 |
User-agent: |
Mutt/1.5.1i |
I'd like to see something "like" this in DejaGNU. One of the absolute
most frequent mistakes I make is syntax errors in the TCL block
associated with some pattern; DejaGNU doesn't even give me a hint that
the pattern matched OK in the output, let alone what TCL's useful error
message was.
The output from the one below is obviously too loud and ugly, but I've
found it useful.
Thoughts?
Index: dejagnu/lib/remote.exp
===================================================================
RCS file: /cvs/src/src/dejagnu/lib/remote.exp,v
retrieving revision 1.6
diff -u -p -r1.6 remote.exp
--- dejagnu/lib/remote.exp 6 Mar 2003 03:50:24 -0000 1.6
+++ dejagnu/lib/remote.exp 4 Mar 2004 20:24:38 -0000
@@ -1259,6 +1259,7 @@ proc remote_expect { board timeout args
}
if {$code == 1} {
+ if {[info exists string]} {send_user "ERROR OCCURED: $errorInfo
$errorCode $string"}
if { $error_sect != "" } {
set code [catch {uplevel $error_sect} string];
} else {
--
Daniel Jacobowitz
MontaVista Software Debian GNU/Linux Developer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Print TCL error information,
Daniel Jacobowitz <=