tests/bugs/caf/bug2793

   1 puts "=========="
   2 puts "OCC2793"
   3 puts "=========="
   4 puts ""
   5 ########################################################################
   6 # BinOcaf: low performance saving documents with large attributes
   7 ########################################################################
   8
   9 NewDocument D BinOcaf
  10
  11 # Loaded shapes for attributes
  12 restore [locate_data_file Radhaus.brep] shape1
  13 restore [locate_data_file shading_wrongshape_009.brep] shape2
  14 restore [locate_data_file FORM-11.brep] shape3
  15 restore [locate_data_file OCC22759-weldt6.brep] shape4
  16 restore [locate_data_file BPLSEITRE.brep] shape5
  17 restore [locate_data_file OCC22302.brep] shape6
  18 restore [locate_data_file ROVER.brep] shape7
  19 restore [locate_data_file bug24083_polyline.brep] shape8
  20
  21 # Create a label
  22 set lab1 [Label D 0:2]
  23 set lab2 [Label D 0:3]
  24 set lab3 [Label D 0:4]
  25 set lab4 [Label D 0:5]
  26 set lab5 [Label D 0:6]
  27 set lab6 [Label D 0:7]
  28 set lab7 [Label D 0:8]
  29 set lab8 [Label D 0:9]
  30
  31 # Load shapes on labels
  32 NewShape D ${lab1} shape1
  33 NewShape D ${lab2} shape2
  34 NewShape D ${lab3} shape3
  35 NewShape D ${lab4} shape4
  36 NewShape D ${lab5} shape5
  37 NewShape D ${lab6} shape6
  38 NewShape D ${lab7} shape7
  39 NewShape D ${lab8} shape8
  40
  41 # Save document
  42 file delete -force ${imagedir}/2793.cbf
  43 dchrono h reset
  44 dchrono h start
  45 SaveAs D ${imagedir}/2793.cbf
  46 dchrono h stop
  47 Close D
  48
  49 # Check
  50 set info [dchrono h show]
  51 regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
  52
  53 set max_time 100
  54 if { [regexp {Debug mode} [dversion]] } {
  55    set max_time 200
  56 }
  57
  58 if { $cpu_time > ${max_time} } {
  59     puts "Error: performance saving document D is too low"
  60 } else {
  61     puts "OK: performance saving document D is high"
  62 }