[occt.git] / tests / bugs / modalg_5 / bug24005

puts "============"
puts "OCC24005"
puts "============"
puts ""
###############################
## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
###############################

pload QAcommands

dchrono h reset
dchrono h start

OCC24005 result

dchrono h stop
set q [dchrono h show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
puts "$z"

set max_time 0.4
if { $z > ${max_time} } {                                         
    puts "Elapsed time is more than ${max_time} seconds - Faulty"
} else {
    puts "Elapsed time is less than ${max_time} seconds - OK"
}

if { [regexp {Ellipse} [dump result]] == 1 } {
    puts "result is OK"
} else {
    puts "result is Faulty"
}

set 2dviewer 1
Commit	Line	Data
788cbaf4	1	puts "============"
	2	puts "OCC24005"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
	7	###############################
	8
	9	pload QAcommands
	10
	11	dchrono h reset
	12	dchrono h start
	13
	14	OCC24005 result
	15
	16	dchrono h stop
	17	set q [dchrono h show]
	18
	19	regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
	20	puts "$z"
	21
4e3aa6b7	22	set max_time 0.4
788cbaf4	23	if { $z > ${max_time} } {
	24	puts "Elapsed time is more than ${max_time} seconds - Faulty"
	25	} else {
	26	puts "Elapsed time is less than ${max_time} seconds - OK"
	27	}
	28
	29	if { [regexp {Ellipse} [dump result]] == 1 } {
	30	puts "result is OK"
	31	} else {
	32	puts "result is Faulty"
	33	}
	34
	35	set 2dviewer 1