[occt.git] / tests / bugs / moddata / bug503

puts "========="
puts " OCC503 "
puts "========="
puts ""
###############################
## Draw hangs up during sprops operation
###############################

#cpulimit 9000

restore [locate_data_file OCC503.brep] result

if [catch {sprops result 0.001 } catch_result] {
    set mistake 1
} else {
    set mistake 0
}

if { $mistake != 0} {
    puts "Faulty OCC503 : Draw hangs up during sprops operation "
} else {
    puts "OCC503 OK: function SPROPS works without hangs up "
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========="
	2	puts " OCC503 "
	3	puts "========="
	4	puts ""
	5	###############################
	6	## Draw hangs up during sprops operation
	7	###############################
	8
	9	#cpulimit 9000
	10
	11	restore [locate_data_file OCC503.brep] result
5789daf9	12
5789daf9	13	if [catch {sprops result 0.001 } catch_result] {
a87752f3	14	set mistake 1
	15	} else {
	16	set mistake 0
	17	}
	18
	19	if { $mistake != 0} {
	20	puts "Faulty OCC503 : Draw hangs up during sprops operation "
	21	} else {
	22	puts "OCC503 OK: function SPROPS works without hangs up "
	23	}
	24
	25	set 2dviewer 0
	26