0028324: Configuration, genproj.tcl - compilation error while targeting OS X 10.8...
[occt.git] / tests / bugs / moddata_3 / bug26339
CommitLineData
ea3b6e72 1puts "============"
2puts "OCC26339"
3puts "============"
4puts ""
5#######################################################################
6# [Regression in 6.9.0] Projecting a curve hangs
7#######################################################################
8
9if { [regexp {Debug mode} [dversion]] } {
10 if { [regexp {Windows} [dversion]] } {
11 set max_time 10
12 } else {
13 set max_time 10
14 }
15} else {
16 if { [regexp {Windows} [dversion]] } {
17 set max_time 3
18 } else {
19 set max_time 3
20 }
21}
22
23restore [locate_data_file bug26339_a_1886.brep] f
24
25dchrono h reset
26dchrono h start
27
28fixshape r f 1e-5
29
30dchrono h stop
31set q [dchrono h show]
32
33regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
34puts "$z"
35
36if { $z > ${max_time} } {
37 puts "Elapsed time of projecting a curve is more than ${max_time} seconds - Faulty"
38} else {
39 puts "Elapsed time of projecting a curve is less than ${max_time} seconds - OK"
40}