0027691: Remove dchrono from all test cases and move its to perf group
[occt.git] / tests / bugs / modalg_6 / bug27569
1 puts "============"
2 puts "OCC27569"
3 puts "============"
4 puts ""
5 ######################################################
6 # [Regression in 6.9.0] Projecting a curve hangs
7 ######################################################
8
9 pload QAcommands
10
11 restore [locate_data_file bug27569.brep] aS
12 explode aS
13 mkcurve c aS_1
14 mksurface s aS_2
15
16 # Performance check
17 chrono h reset; chrono h start
18 OCC24008 c s;
19 chrono h stop; set q [dchrono h show]
20 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full aTime
21
22 set MAX_TIME 1.0
23
24 if { $aTime > ${MAX_TIME} } {
25     puts "Elapsed time is more than ${MAX_TIME} seconds - Faulty"
26 } else {
27     puts "Elapsed time is less than ${MAX_TIME} seconds - OK"
28 }