74da0216 |
1 | puts "============" |
2 | puts "CR25378" |
3 | puts "============" |
4 | puts "" |
5 | ################################################################################### |
6 | # Building of triangulation for distored surfaces can take very long using BRepMesh_IncrementalMesh |
9aa684ed |
7 | # |
8 | # Test case was created to control bad situation, building of triangulation takes |
9 | # very long time and it is expected by the meaning of issue #25378. |
10 | # Case when it is passed too fast should be considered as failure. |
74da0216 |
11 | ################################################################################### |
12 | |
9aa684ed |
13 | cpulimit 900 |
14 | |
74da0216 |
15 | restore [locate_data_file bug25378_Blower_bad.brep] b |
16 | trinfo b |
17 | |
18 | tclean b |
19 | set t_01 [expr [lindex [time {incmesh b 0.01}] 0]/1000000] |
20 | puts "t_01=${t_01}" |
21 | trinfo b |
22 | |
23 | if { [regexp {Debug mode} [dversion]] } { |
7856b126 |
24 | set max_t_01 180 |
74da0216 |
25 | } else { |
7856b126 |
26 | set max_t_01 1 |
74da0216 |
27 | } |
28 | |
81093856 |
29 | # this test case is redundant, as we must not set lower limit for computation time |
30 | #if {${max_t_01} > ${t_01}} { |
31 | # puts "Error. Time of building of triangulation, ${t_01} seconds, is less than expected minimum time - ${max_t_01} seconds" |
32 | #} |