tests/bugs/modalg/bug19653

   1 puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
   2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
   3
   4 puts "============"
   5 puts "PRO19653"
   6 puts "BREPALGO_BOOLEANOPERATION does not return result."
   7 puts "=================================="
   8 puts "It takes visual check for this BUG"
   9 puts "=================================="
  10
  11 restore [locate_data_file pro19653a.brep] a
  12 puts [checkshape a]
  13 restore [locate_data_file pro19653b.brep] b
  14 puts [checkshape b]
  15 bsection result a b
  16
  17 explode result e
  18 checkshape result_1
  19 explode a e
  20 regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
  21 regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
  22 if { $ll_1 != $ll_2 } {
  23     puts "Faulty : TEST FAILED"
  24 } else {
  25     puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
  26 }
  27
  28 set length 0
  29 set 2dviewer 0