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 catched
  12 # Correct handling of exceptions on WNT
  13 #######################################################################################
  14
  15 pload QAcommands
  16
  17 set BugNumber OCC6143
  18
  19 set OK_string "TestExcept: Successfull completion\n"
  20 set IsDone [catch {set aResult [OCC6143]} result]
  21
  22 if { ${IsDone} != 0 } {
  23     puts "result = ${result}"
  24     puts "Faulty ${BugNumber}"
  25 } else {
  26     if { [string first ${OK_string} ${aResult} ] != -1 } {
  27         puts "OK ${BugNumber}"
  28     } else {
  29         puts "Faulty ${BugNumber}"
  30     }
  31 }
  32