[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.


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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]