mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
19 lines
548 B
Plaintext
19 lines
548 B
Plaintext
puts " "
|
|
puts "----------------------------------------------------------------------------------------------------------------------------------"
|
|
puts " "
|
|
if {$IsDone == 0 } {
|
|
puts "Test errors:"
|
|
set err ""
|
|
for {set i 1} {[lindex $TestError $i]!=""} {incr i} {
|
|
if {[lindex $TestError $i] == "#"} {
|
|
puts $err
|
|
set err ""
|
|
} else {set err "$err [lindex $TestError $i]"}
|
|
}
|
|
puts $err
|
|
puts "ERROR OCCURS DURING TEST - FAULTY"
|
|
} else { puts "TEST COMPLETED"}
|
|
|
|
# puts "TEST COMPLETED"
|
|
#exit
|