diff options
| author | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-29 21:51:38 -0500 |
|---|---|---|
| committer | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-29 21:51:38 -0500 |
| commit | 61dc0cafad8845b3c668940ed2e574bd503d410f (patch) | |
| tree | 7e516a6300b83c214b58d7c45106566e3113241d /lib | |
| parent | 556eb7716e0010f02133cb41cfc7fd8867b6c50d (diff) | |
| download | dejagnu-61dc0cafad8845b3c668940ed2e574bd503d410f.zip dejagnu-61dc0cafad8845b3c668940ed2e574bd503d410f.tar.gz dejagnu-61dc0cafad8845b3c668940ed2e574bd503d410f.tar.bz2 | |
Add separator lines when repeating error messages
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/framework.exp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 9cfff9d..8c74dfa 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -384,10 +384,12 @@ proc log_and_exit {} { if {[llength $::dejagnu::error::list] > 0} { # print errors again at end of output foreach { cell } $::dejagnu::error::list { + clone_output "ERROR: [string repeat - 43]" 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]" + clone_output "ERROR: \ + tcl error info:\n[lindex $cell 3]\n[string repeat - 50]" } } close_logs |