[occt.git] / tests / bugs / modalg_4 / pro19653

puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
puts "TODO OCC12345 ALL: Error : The length of result shape is"

puts "============"
puts "PRO19653"
puts "BREPALGO_BOOLEANOPERATION does not return result."
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

restore [locate_data_file pro19653a.brep] a 
checkshape a
restore [locate_data_file pro19653b.brep] b
checkshape b
bsection result a b

explode result e
checkshape result_1
explode a e
regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
if { $ll_1 != $ll_2 } {
    puts "Faulty : TEST FAILED"
} else {
    puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
}

set length 0
set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "TODO OCC12345 ALL: Faulty : TEST FAILED"
	2	puts "TODO OCC12345 ALL: Error : The length of result shape is"
	3
	4	puts "============"
	5	puts "PRO19653"
	6	puts "BREPALGO_BOOLEANOPERATION does not return result."
	7	puts "=================================="
	8	puts "It takes visual check for this BUG"
	9	puts "=================================="
	10
	11	restore [locate_data_file pro19653a.brep] a
352ffd73	12	checkshape a
0e94a94e	13	restore [locate_data_file pro19653b.brep] b
352ffd73	14	checkshape b
0e94a94e	15	bsection result a b
	16
	17	explode result e
	18	checkshape result_1
	19	explode a e
	20	regexp {Mass +: +([-0-9.+eE]+)} [lprops result_1] full ll_1
	21	regexp {Mass +: +([-0-9.+eE]+)} [lprops a_4] full ll_2
	22	if { $ll_1 != $ll_2 } {
	23	puts "Faulty : TEST FAILED"
	24	} else {
	25	puts "PRO19653 OK : BREPALGO_BOOLEANOPERATION returns result"
	26	}
	27
	28	set length 0
	29	set 2dviewer 0