tests/bugs/modalg_4/bug62

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