0024927: Getting rid of "Persistent" functionality -- Tests
[occt.git] / 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 }