[occt.git] / tests / bugs / modalg_2 / bug530

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC12345 ALL: Error : The area of result shape is"

puts "======="
puts "OCC530"
puts "======="
puts ""
####################################
## Draw hungs up during performing bfuse operation
####################################

cpulimit 3000

restore [locate_data_file OCC530_1.brep] c1 
checkshape c1

restore [locate_data_file OCC530_2.brep] c2 
checkshape c2

if { [catch { bfuse result c1 c2 } catch_result] } {
    puts "Faulty OCC530 : function BFUSE works wrongly"
} else {
    puts "OCC530 OK: function BFUSE works properly"
}

checkprops result -s 0 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
352ffd73	1	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
58cf74e0	2	puts "TODO OCC12345 ALL: Error : The area of result shape is"
352ffd73	3
	4	puts "======="
	5	puts "OCC530"
	6	puts "======="
	7	puts ""
	8	####################################
	9	## Draw hungs up during performing bfuse operation
	10	####################################
	11
	12	cpulimit 3000
	13
	14	restore [locate_data_file OCC530_1.brep] c1
	15	checkshape c1
	16
	17	restore [locate_data_file OCC530_2.brep] c2
	18	checkshape c2
	19
	20	if { [catch { bfuse result c1 c2 } catch_result] } {
	21	puts "Faulty OCC530 : function BFUSE works wrongly"
	22	} else {
	23	puts "OCC530 OK: function BFUSE works properly"
	24	}
	25
58cf74e0	26	checkprops result -s 0
58cf74e0	27	checkshape result
5747059b	28	checkview -display result -2d -path ${imagedir}/${test_image}.png
352ffd73	29
352ffd73	30