0027322: geom/revolution_00/A1: Incorrect pcurve creation
[occt.git] / tests / bugs / modalg_5 / bug24157_1
1 puts "============"
2 puts "OCC24157"
3 puts "============"
4 puts ""
5 ############################################
6 # Parallelization of assembly part of BO
7 ############################################
8
9 restore [locate_data_file bug24157_x_512_solids_glued] b1
10 tcopy b1 b2
11 ttranslate b2 3. 4. 5.
12 bclearobjects
13 bcleartools
14 baddcompound b1
15 baddcompound b2
16 bfillds
17
18 regexp { +Tps: +([-0-9.+eE]+)} [bbuild result -t] full tps_time
19
20 if { [regexp {Debug mode} [dversion]] } {
21   set check_time 150
22 } else {
23   set check_time 87
24 }
25 if { $tps_time > $check_time } {
26   puts "Error: low performance"
27 } else {
28   puts "OK: high performance"
29 }
30
31 checkview -display result -2d -path ${imagedir}/${test_image}.png