tests/bugs/caf/bug738_2

   1 puts "========"
   2 puts "OCC738"
   3 puts "========"
   4 puts ""
   5 ##################################
   6 ##The GUIDs in XCAFDoc have incorrect format.
   7 ##################################
   8
   9 pload QAcommands
  10
  11 if [catch { OCC738_ShapeRef }] then {
  12   puts "Faulty OCC738"
  13 } else {
  14   puts "OCC738 OK"
  15 }
  16
  17