tests/bugs/xde/bug6366

   1 puts "============"
   2 puts "OCC6366"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # FixShape does not fix an edge with invalid SameRange flag
   7 ######################################################
   8
   9 set BugNumber OCC6366
  10
  11 restore [locate_data_file BUC60393.rle] a
  12 decho off
  13 if {[checkshape a] != "This shape seems to be valid"} {
  14     puts "Info: we see that the initial shape is bad"
  15 }
  16 decho on
  17
  18 puts "launching fixshape..."
  19 fixshape result a
  20 set err 0
  21
  22 decho off
  23 if {[checkshape result] != "This shape seems to be valid"} {
  24     puts "Info: we see that the fixed shape is bad too"
  25     puts "launching fsameparameter..."
  26     set err 1
  27     fsameparameter result
  28     if {[checkshape result] == "This shape seems to be valid"} {
  29         puts "Info: we see that fsameparameter fixed the shape completely"
  30     } else {
  31         puts "Info: we see that the fixed shape after fsameparameter is bad too"
  32     }
  33 }
  34 decho on
  35
  36 if { ${err} == 0 } {
  37     puts "OK ${BugNumber}"
  38 } else {
  39     puts "Faulty ${BugNumber}"
  40 }
  41
  42 set 2dviewer 0
  43