tests/bugs/xde/bug904

   1 puts "============"
   2 puts "OCC904"
   3 puts "============"
   4 puts ""
   5 #####################################################
   6 ## Invalid resut shell after command fixshell in DRAW with non-manifold mode
   7 #####################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file OCC904.brep] a
  12
  13 if [ catch { set res [OCC904 result a 1] } ] {
  14    puts "Faulty OCC904 (case 1)"
  15 } else {
  16   set info [checkshape result]
  17   set index [lsearch $result Faulty]
  18   if { [regexp "Faulty" $info] == 1 } {
  19      puts "Faulty OCC904 (case 2)"
  20   } else {
  21      puts "OCC904 OK"
  22   }
  23 }
  24
  25 set 2dviewer 1
  26