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


puts "========"
puts "BUC60789"
puts "========"
puts ""

#restore buc60789a.brep S1
restore [locate_data_file buc60787b.brep] S1 
### (by apn during classification)
checkshape S1
restore [locate_data_file buc60789b.brep] S2
checkshape S2

bcommon result S1 S2

set nb_info [nbshapes result]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed

if { $ve != 0 && $ed != 0 } {
    puts  " BUC60789 OK: COMMON operation was made properly"
} else {
    puts "Faulty BUC60789: COMMON operation was made wrongly"
}
set length 78.3594
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========"
	3	puts "BUC60789"
	4	puts "========"
	5	puts ""
	6
	7	#restore buc60789a.brep S1
	8	restore [locate_data_file buc60787b.brep] S1
	9	### (by apn during classification)
352ffd73	10	checkshape S1
a87752f3	11	restore [locate_data_file buc60789b.brep] S2
352ffd73	12	checkshape S2
a87752f3	13
	14	bcommon result S1 S2
	15
a87752f3	16	set nb_info [nbshapes result]
	17	regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
	18	regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
	19
	20	if { $ve != 0 && $ed != 0 } {
	21	puts " BUC60789 OK: COMMON operation was made properly"
	22	} else {
	23	puts "Faulty BUC60789: COMMON operation was made wrongly"
	24	}
	25	set length 78.3594
	26	set 2dviewer 0