tests/bugs/modalg_4/bug62

   1 puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
   2 puts "TODO OCC25735 ALL: Faulty shapes in variables faulty_1 to"
   3
   4 puts "================"
   5 puts "OCC62"
   6 puts "BUC61001"
   7 puts "================"
   8
   9 cpulimit 1400
  10 restore [locate_data_file OCC62.brep] sh
  11
  12 #Delete invalid (in terms of bug#25109) triangulation
  13 tclean sh
  14
  15 explode sh
  16 checkshape sh
  17
  18 bfuse res1 sh_1 sh_3
  19 checkshape res1
  20
  21 bfuse res2 res1 sh_2
  22 checkshape res2
  23
  24 bfuse res3 res2 sh_6
  25 checkshape res3
  26
  27 bfuse res4 res3 sh_4
  28 checkshape res4
  29
  30 bfuse res5 res4 sh_5
  31 checkshape res5
  32
  33 renamevar res5 result
  34
  35 set OCC62_square 1.23063e+7
  36 puts "The expected square is ${OCC62_square}"
  37
  38 set sq_persent 0.03
  39 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
  40 if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } {
  41    puts "Error : The square of result shape is $m"
  42 }
  43
  44 set 2dviewer 0