tests/bugs/caf/bug739

   1 puts "TODO OCC12345 ALL: Faulty OCC739"
   2
   3 puts "========"
   4 puts "OCC739"
   5 puts "========"
   6 puts ""
   7 ###################################################
   8 ## Invalid GUIDs in DDataStd_DrawPresentation and DDataStd_Sample.
   9 ###################################################
  10
  11 pload QAcommands
  12
  13 if [catch { OCC739_DrawPresentation }] then {
  14   puts "Faulty OCC739"
  15 } else {
  16   puts "OCC739 OK"
  17 }
  18
  19