tests/bugs/modalg_7/bug26795

   1 puts "TODO OCC26795 ALL: Error: General Fuse operation is bad"
   2
   3 puts "================"
   4 puts "OCC26795"
   5 puts "================"
   6 puts ""
   7 #######################################################################
   8 # Unable to perform General Fuse operation on the attached faces
   9 #######################################################################
  10
  11 restore [locate_data_file bug26795_c.brep] c
  12
  13 explode c f
  14
  15 bclearobjects
  16 bcleartools
  17 baddobjects c_1
  18 baddtools c_2
  19
  20 bfillds
  21
  22 bbuild result
  23
  24 checkshape result
  25
  26 set tol_rel 1.e-5
  27
  28 set s_exp_c_1 8.71862e+06
  29 set s_exp_c_2 1.01299e+07
  30
  31 set s_c_1_and_s_c_2 [expr ${s_exp_c_1} + ${s_exp_c_2}]
  32
  33 set prop [ sprops result ]
  34 regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s s_Fuse
  35
  36 checkprops c_1 -s ${s_exp_c_1}
  37 checkprops c_2 -s ${s_exp_c_2}
  38
  39 if { [expr ( abs (${s_Fuse} - ${s_c_1_and_s_c_2}) ) / ${s_c_1_and_s_c_2}] > ${tol_rel} } {
  40    puts "OK: General Fuse operation is good"
  41 } else {
  42    puts "Error: General Fuse operation is bad"
  43 }
  44
  45 checkview -display result -2d -path ${imagedir}/${test_image}.png