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 #23828 MacOS: Tcl Exception: sh is not a topological shape!!!"
   9   #puts "TODO #23828 MacOS: TEST INCOMPLETE"
  10 } else {
  11   #puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
  12   #puts "TODO OCC12345 ALL: Error : The square of result shape is"
  13 }
  14
  15 puts "================"
  16 puts "OCC62"
  17 puts "BUC61001"
  18 puts "================"
  19
  20 cpulimit 1400
  21 restore [locate_data_file OCC62.brep] sh
  22
  23 explode sh
  24 checkshape sh
  25
  26 bfuse res1 sh_1 sh_3
  27 checkshape res1
  28
  29 bfuse res2 res1 sh_2
  30 checkshape res2
  31
  32 bfuse res3 res2 sh_6
  33 checkshape res3
  34
  35 bfuse res4 res3 sh_4
  36 checkshape res4
  37
  38 bfuse res5 res4 sh_5
  39 checkshape res5
  40
  41 renamevar res5 result
  42
  43 set OCC62_square 1.23063e+7
  44 puts "The expected square is ${OCC62_square}"
  45
  46 set sq_persent 0.03
  47 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
  48 if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } {
  49    puts "Error : The square of result shape is $m"
  50 }
  51
  52 set 2dviewer 0