tests/bugs/modalg_1/bug19793_2

   1 puts "TODO ?OCC24472 ALL: Error : Result shape is WRONG because it must contains 70 edges instead of 71"
   2 puts "TODO ?OCC24472 ALL: Error : Result shape is WRONG because it must contains 139 shapes instead of 140"
   3 puts "TODO ?OCC23753 ALL: ERROR: OCC23753 is reproduced."
   4 puts "TODO ?OCC23753 ALL: Process killed by CPU limit"
   5 puts "TODO ?OCC23753 ALL: TEST INCOMPLETE"
   6
   7 puts "============"
   8 puts "OCC19793"
   9 puts "============"
  10 puts ""
  11 #######################################################################
  12 # Fuse problem of symetrical shapes. Appendix for NPAL19789
  13 #######################################################################
  14
  15 cpulimit 1000
  16 set BugNumber OCC19793
  17
  18 puts "Load first shape ..."
  19 restore [locate_data_file bug19793_new_shape.brep] b1
  20 puts "Load second shape ..."
  21 restore [locate_data_file bug19793_shape.brep] b2
  22
  23 puts "Prepare boolean operation ..."
  24 dchrono perf_h reset
  25 dchrono perf_h start
  26 bop b1 b2
  27 dchrono perf_h stop
  28
  29 puts "Start boolean operation ..."
  30 bopsection result
  31 puts "Finish boolean operation ..."
  32
  33 set length 17730.1
  34
  35 set nb_e_good 1190
  36 set nb_v_good 68
  37 set nb_e_good 70
  38 set nb_w_good 0
  39 set nb_f_good 0
  40 set nb_sh_good 0
  41 set nb_sol_good 0
  42 set nb_compsol_good 0
  43 set nb_compound_good 1
  44 set nb_shape_good 139
  45
  46 # OCC23753 processing
  47 # Performance verification of bop operation
  48 set chrono_info [dchrono perf_h show]
  49 regexp {CPU user time: ([-0-9.+eE]+) seconds} $chrono_info full CPU_time
  50 set currentOS $tcl_platform(os)
  51 if {[string compare $currentOS "Windows NT"] == 0} {
  52   puts "Checking WINDOWS performance..."
  53   # Initial CPU_time is 92-94 seconds for Windows
  54   if {$CPU_time > 60.} {
  55     puts "ERROR: OCC23753 is reproduced."
  56     puts "       Low performance: $CPU_time"
  57   }
  58 }
  59 if {[string compare $currentOS "Linux"] == 0} {
  60   puts "Checking LINUX performance..."
  61   # Initial CPU_time is 287-289 seconds for Linux
  62   if {$CPU_time > 100.} {
  63     puts "ERROR: OCC23753 is reproduced."
  64     puts "       Low performance: $CPU_time"
  65   }
  66 }
  67
  68 set 2dviewer 0