tests/bugs/fclasses/bug6143

   1 puts "TODO OCC24156 MacOS: Faulty OCC6143"
   2
   3 puts "================"
   4 puts "OCC1723"
   5 puts "OCC2707"
   6 puts "OCC6143"
   7 puts "OCC12131"
   8 puts "================"
   9 puts ""
  10 #######################################################################################
  11 # OSD::SetSignal : not all FLT exceptions are caught
  12 #######################################################################################
  13
  14 pload QAcommands
  15
  16 set BugNumber OCC6143
  17
  18 dsetsignal 1
  19 set IsDone [catch {set aResult [OCC6143]} result]
  20 dsetsignal
  21
  22 if { ${IsDone} != 0 } {
  23     puts "result = ${result}"
  24     puts "Faulty ${BugNumber}"
  25 } else {
  26     if { [string first "TestExcept: Successfull completion" ${aResult} ] != -1 } {
  27         puts "OK ${BugNumber}"
  28     } else {
  29         puts "Faulty ${BugNumber}"
  30     }
  31 }
  32