[occt.git] / tests / bugs / modalg_6 / bug27569

puts "============"
puts "OCC27569"
puts "============"
puts ""
######################################################
# [Regression in 6.9.0] Projecting a curve hangs
######################################################

pload QAcommands

restore [locate_data_file bug27569.brep] aS
explode aS
mkcurve c aS_1
mksurface s aS_2

# Performance check
chrono h reset; chrono h start
OCC24008 c s;
chrono h stop; set q [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full aTime

set MAX_TIME 1.0

if { $aTime > ${MAX_TIME} } {
    puts "Elapsed time is more than ${MAX_TIME} seconds - Faulty"
} else {
    puts "Elapsed time is less than ${MAX_TIME} seconds - OK"
}
Commit	Line	Data
67285996	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	}