2d2aa6f1 |
1 | puts "============" |
2 | puts "OCC25019" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Command "bsection" in Test Harness with flag build pcurve on second shape works slowly. |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug25019_a_shape_1.brep] a1 |
10 | restore [locate_data_file bug25019_prism.brep] p1 |
11 | |
12 | # 1. |
13 | dchrono h1 reset |
14 | dchrono h1 start |
15 | |
16 | bsection r a1 p1 -n2d2 |
17 | |
18 | dchrono h1 stop |
19 | set q1 [dchrono h1 show] |
20 | |
21 | # 2. |
22 | dchrono h2 reset |
23 | dchrono h2 start |
24 | |
25 | bsection r a1 p1 |
26 | |
27 | dchrono h2 stop |
28 | set q2 [dchrono h2 show] |
29 | |
30 | # |
31 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q1 full t1 |
32 | puts "$t1" |
33 | if { [string compare $tcl_platform(platform) "windows"] == 0 } { |
34 | puts "OS = Windows NT" |
35 | set max_time1 5 |
36 | } else { |
37 | puts "OS = Linux" |
38 | set max_time1 5 |
39 | } |
40 | if { $t1 > ${max_time1} } { |
41 | puts "Elapsed time is more than ${max_time1} seconds - Faulty" |
42 | } else { |
43 | puts "Elapsed time is less than ${max_time1} seconds - OK" |
44 | } |
45 | |
46 | # |
47 | regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full t2 |
48 | puts "$t2" |
49 | if { [string compare $tcl_platform(platform) "windows"] == 0 } { |
50 | puts "OS = Windows NT" |
51 | set max_time2 5 |
52 | } else { |
53 | puts "OS = Linux" |
54 | set max_time2 5 |
55 | } |
56 | if { $t2 > ${max_time2} } { |
57 | puts "Elapsed time is more than ${max_time2} seconds - Faulty" |
58 | } else { |
59 | puts "Elapsed time is less than ${max_time2} seconds - OK" |
60 | } |