tests/bugs/mesh/bug25364

   1 puts "============"
   2 puts "CR25364"
   3 puts "============"
   4 puts ""
   5 ###################################################################################
   6 # BRepMesh is not able to triangulate the shape with fine deflection
   7 ###################################################################################
   8
   9 restore [locate_data_file bug25364_WT_Grundplatte.brep] result
  10
  11 set mem_private_1 [meminfo private]
  12 set mem_swap_1 [meminfo swap]
  13 set mem_swappeak_1 [meminfo swappeak]
  14 set mem_wset_1 [meminfo wset]
  15 set mem_wsetpeak_1 [meminfo wsetpeak]
  16 set mem_virt_1 [meminfo virt]
  17 set mem_heap_1 [meminfo heap]
  18
  19 incmesh result 0.002
  20
  21 set mem_private_2 [meminfo private]
  22 set mem_swap_2 [meminfo swap]
  23 set mem_swappeak_2 [meminfo swappeak]
  24 set mem_wset_2 [meminfo wset]
  25 set mem_wsetpeak_2 [meminfo wsetpeak]
  26 set mem_virt_2 [meminfo virt]
  27 set mem_heap_2 [meminfo heap]
  28
  29 if [catch { tricheck result } ] {
  30   puts "Error : Problem of triangulation"
  31 } else {
  32   puts "OK : Triangulation is good"
  33 }
  34
  35 set mem_private_1 [expr ${mem_private_1}/(1024 * 1024)]
  36 set mem_swap_1 [expr ${mem_swap_1}/(1024 * 1024)]
  37 set mem_swappeak_1 [expr ${mem_swappeak_1}/(1024 * 1024)]
  38 set mem_wset_1 [expr ${mem_wset_1}/(1024 * 1024)]
  39 set mem_wsetpeak_1 [expr ${mem_wsetpeak_1}/(1024 * 1024)]
  40 set mem_virt_1 [expr ${mem_virt_1}/(1024 * 1024)]
  41 set mem_heap_1 [expr ${mem_heap_1}/(1024 * 1024)]
  42
  43 puts "mem_private_1=${mem_private_1}"
  44 puts "mem_swap_1=${mem_swap_1}"
  45 puts "mem_swappeak_1=${mem_swappeak_1}"
  46 puts "mem_wset_1=${mem_wset_1}"
  47 puts "mem_wsetpeak_1=${mem_wsetpeak_1}"
  48 puts "mem_virt_1=${mem_virt_1}"
  49 puts "mem_heap_1=${mem_heap_1}"
  50
  51 set mem_private_2 [expr ${mem_private_2}/(1024 * 1024)]
  52 set mem_swap_2 [expr ${mem_swap_2}/(1024 * 1024)]
  53 set mem_swappeak_2 [expr ${mem_swappeak_2}/(1024 * 1024)]
  54 set mem_wset_2 [expr ${mem_wset_2}/(1024 * 1024)]
  55 set mem_wsetpeak_2 [expr ${mem_wsetpeak_2}/(1024 * 1024)]
  56 set mem_virt_2 [expr ${mem_virt_2}/(1024 * 1024)]
  57 set mem_heap_2 [expr ${mem_heap_2}/(1024 * 1024)]
  58
  59 puts "mem_private_2=${mem_private_2}"
  60 puts "mem_swap_2=${mem_swap_2}"
  61 puts "mem_swappeak_2=${mem_swappeak_2}"
  62 puts "mem_wset_2=${mem_wset_2}"
  63 puts "mem_wsetpeak_2=${mem_wsetpeak_2}"
  64 puts "mem_virt_2=${mem_virt_2}"
  65 puts "mem_heap_2=${mem_heap_2}"
  66
  67 set mem_delta_private 180
  68 set mem_delta_swap 100
  69 set mem_delta_swappeak 150
  70 set mem_delta_wset 180
  71 set mem_delta_wsetpeak 180
  72 set mem_delta_virt 180
  73 set mem_delta_heap 80
  74
  75 if { [expr ${mem_private_2} - ${mem_private_1}] > ${mem_delta_private}} {
  76     puts "Error : there is memory problem (private)"
  77 }
  78 if { [expr ${mem_swap_2} - ${mem_swap_1}] > ${mem_delta_swap}} {
  79     puts "Error : there is memory problem (swap)"
  80 }
  81 if { [expr ${mem_swappeak_2} - ${mem_swappeak_1}] > ${mem_delta_swappeak}} {
  82     puts "Error : there is memory problem (swappeak)"
  83 }
  84 if { [expr ${mem_wset_2} - ${mem_wset_1}] > ${mem_delta_wset}} {
  85     puts "Error : there is memory problem (wset)"
  86 }
  87 if { [expr ${mem_wsetpeak_2} - ${mem_wsetpeak_1}] > ${mem_delta_wsetpeak}} {
  88     puts "Error : there is memory problem (wsetpeak)"
  89 }
  90 if { [expr ${mem_virt_2} - ${mem_virt_1}] > ${mem_delta_virt}} {
  91     puts "Error : there is memory problem (virt)"
  92 }
  93 if { [expr ${mem_heap_2} - ${mem_heap_1}] > ${mem_delta_heap}} {
  94     puts "Error : there is memory problem (heap)"
  95 }
  96
  97 set 3dviewer 1