[occt.git] / tests / bugs / modalg / buc60787_2

puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
puts "TODO OCC12345 ALL: Error : The square of result shape is"

puts "========"
puts "BUC60787"
puts "BUC60783"
puts "========"

#restore Cut_Shell_Case2.brep S1
#restore Cut_Solid_Case2.brep S2

restore [locate_data_file buc60787c.brep] S1 
checkshape S1
restore [locate_data_file buc60787d.brep] S2
checkshape S2

bcut result S1 S2

set nb_info [nbshapes result]
regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1

if { $err != 0 || $err1 != 1} {
    puts "Faulty : result should be a shell, but not a compound of faces"
} else {
    puts "BUC60787 - OK"
}
set square 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty : result should be a shell, but not a compound of faces"
	2	puts "TODO OCC12345 ALL: Error : The square of result shape is"
	3
	4	puts "========"
	5	puts "BUC60787"
	6	puts "BUC60783"
	7	puts "========"
	8
	9	#restore Cut_Shell_Case2.brep S1
	10	#restore Cut_Solid_Case2.brep S2
	11
	12	restore [locate_data_file buc60787c.brep] S1
352ffd73	13	checkshape S1
a87752f3	14	restore [locate_data_file buc60787d.brep] S2
352ffd73	15	checkshape S2
a87752f3	16
	17	bcut result S1 S2
	18
	19	set nb_info [nbshapes result]
	20	regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
	21	regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
	22
	23	if { $err != 0 \|\| $err1 != 1} {
	24	puts "Faulty : result should be a shell, but not a compound of faces"
	25	} else {
	26	puts "BUC60787 - OK"
	27	}
	28	set square 0
	29	set 2dviewer 0