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


puts "==========="
puts "BUC60708"
puts "==========="

restore [locate_data_file buc60708a.brep] a 
checkshape a
restore [locate_data_file buc60708b.brep] b
checkshape b

bcommon result a b

set faces [explode result f]
set n [llength $faces]

set end [lindex $faces [expr $n-1]]

if {  $end != "result_4" } {
    puts " Faulty :Common operation was made  wrongly"
} else {
    puts " Common operation was made successfully"
}
set square 13.4871
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "==========="
	3	puts "BUC60708"
	4	puts "==========="
	5
	6	restore [locate_data_file buc60708a.brep] a
352ffd73	7	checkshape a
a87752f3	8	restore [locate_data_file buc60708b.brep] b
352ffd73	9	checkshape b
a87752f3	10
	11	bcommon result a b
	12
	13	set faces [explode result f]
	14	set n [llength $faces]
	15
	16	set end [lindex $faces [expr $n-1]]
	17
	18	if { $end != "result_4" } {
	19	puts " Faulty :Common operation was made wrongly"
	20	} else {
	21	puts " Common operation was made successfully"
	22	}
	23	set square 13.4871
	24	set 2dviewer 0