tests/bugs/xde/bug6555

   1 puts "========"
   2 puts "OCC6555"
   3 puts "========"
   4 puts ""
   5 ####################################################
   6 ## ShapeFix_Shape modifies valid shape and return wrong status DONE.
   7 ####################################################
   8
   9 set BugNumber OCC6555
  10
  11 box s1 10 10 10
  12
  13 set result [checkshape s1]
  14 set index [lsearch ${result} Faulty]
  15 if {$index > -1} {
  16    puts "Faulty ${BugNumber} : checkshape is wrong for s1"
  17 } else {
  18    puts "checkshape is good for s1"
  19 }
  20
  21 set DumpList1 [dump s1]
  22 set SOLID_Adress_1 [lindex ${DumpList1} 29]
  23
  24 fixshape result s1
  25
  26 set res [checkshape result]
  27 set index [lsearch ${res} Faulty]
  28 if {$index > -1} {
  29    puts "Faulty ${BugNumber} : checkshape is wrong for res"
  30 } else {
  31    puts "checkshape is good for res"
  32 }
  33
  34 set DumpList2 [dump result]
  35 set SOLID_Adress_2 [lindex ${DumpList2} 29]
  36
  37 if { ${SOLID_Adress_1} != ${SOLID_Adress_2} } {
  38   puts "Faulty ${BugNumber}"
  39 } else {
  40   puts "OK ${BugNumber}"
  41 }
  42
  43 checkview -display result -2d -path ${imagedir}/${test_image}.png
  44