[occt.git] / tests / bugs / modalg_1 / buc60788_3

puts "========"
puts "BUC60788"
puts "case 2"
puts "========"

#restore Common_Shell_Case2.brep S1
#restore Common_Solid_Case2.brep S2

restore [locate_data_file buc60788c.brep] S1 
checkshape S1
restore [locate_data_file buc60787b.brep] S2
checkshape S1

bcommon 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 != 1 || $err1 != 1} {
    puts "Faulty : result should be a shell, but not a compound of faces"
} else {
    puts "BUC60788 - OK"
}
set square 45000
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========"
	2	puts "BUC60788"
	3	puts "case 2"
	4	puts "========"
	5
	6	#restore Common_Shell_Case2.brep S1
	7	#restore Common_Solid_Case2.brep S2
	8
	9	restore [locate_data_file buc60788c.brep] S1
352ffd73	10	checkshape S1
a87752f3	11	restore [locate_data_file buc60787b.brep] S2
352ffd73	12	checkshape S1
a87752f3	13
	14	bcommon result S1 S2
	15
	16	set nb_info [nbshapes result]
	17	regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full err
	18	regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
	19
4e57c75e	20	if { $err != 1 \|\| $err1 != 1} {
a87752f3	21	puts "Faulty : result should be a shell, but not a compound of faces"
	22	} else {
	23	puts "BUC60788 - OK"
	24	}
4e57c75e	25	set square 45000
a87752f3	26	set 2dviewer 0