puts "TODO OCC24156 MacOS: Faulty OCC6143"
+puts "TODO OCC27713 Linux: Faulty OCC6143"
+puts "TODO OCC27713 Linux: Error"
puts "================"
puts "OCC1723"
set BugNumber OCC6143
-set OK_string "TestExcept: Successfull completion\n"
+dsetsignal 1
set IsDone [catch {set aResult [OCC6143]} result]
+dsetsignal
if { ${IsDone} != 0 } {
puts "result = ${result}"
puts "Faulty ${BugNumber}"
} else {
- if { [string first ${OK_string} ${aResult} ] != -1 } {
+ if { [string first "TestExcept: Successfull completion" ${aResult} ] != -1 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"