diff options
| author | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-26 18:53:15 -0500 |
|---|---|---|
| committer | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-26 18:53:15 -0500 |
| commit | 2c7ae2526ba1e297adb2c013c6ddb5dfaea09f9d (patch) | |
| tree | cc86845b7f78a7e3df05e559b52869f5da76f75c /lib | |
| parent | 5bc0f51cebd001b6ba92cdd3e98e97111d96cccb (diff) | |
| download | dejagnu-2c7ae2526ba1e297adb2c013c6ddb5dfaea09f9d.zip dejagnu-2c7ae2526ba1e297adb2c013c6ddb5dfaea09f9d.tar.gz dejagnu-2c7ae2526ba1e297adb2c013c6ddb5dfaea09f9d.tar.bz2 | |
Record Tcl errors and dump them again at the end of a run
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/framework.exp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 0850595..9cfff9d 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -381,6 +381,15 @@ proc log_and_exit {} { warning "${tool}_version failed:\n$output" } } + if {[llength $::dejagnu::error::list] > 0} { + # print errors again at end of output + foreach { cell } $::dejagnu::error::list { + clone_output "ERROR: in testcase [lindex $cell 0]" + clone_output "ERROR: [lindex $cell 1]" + clone_output "ERROR: tcl error code [lindex $cell 2]" + clone_output "ERROR: tcl error info:\n[lindex $cell 3]" + } + } close_logs verbose -log "runtest completed at [timestamp -format %c]" if {$mail_logs} { |