tests/bugs/modalg_1/buc60708

   1
   2 puts "==========="
   3 puts "BUC60708"
   4 puts "==========="
   5
   6 restore [locate_data_file buc60708a.brep] a
   7 checkshape a
   8 restore [locate_data_file buc60708b.brep] b
   9 checkshape b
  10
  11 bcommon result a b
  12
  13 set faces [explode result f]
  14 set n [llength $faces]
  15
  16 set end [lindex $faces [expr $n-1]]
  17
  18 if {  $end != "result_4" } {
  19     puts " Faulty :Common operation was made  wrongly"
  20 } else {
  21     puts " Common operation was made successfully"
  22 }
  23 checkprops result -s 13.4871
  24 checkshape result
  25 checkview -display result -2d -path ${imagedir}/${test_image}.png