[occt.git] / tests / bugs / modalg_2 / bug435

pload QAcommands

#INTERFACE IGES
puts "========================"
puts " OCC435 "
puts " OCC405 "
puts "========================"
puts ""
###############################################################
## Exception Standard_ConstructuionError is rased in DRAW in the
## GeomConvert_CompCurveToBSplineCurve on the attached shapes during command merge
###############################################################

restore [locate_data_file OCC435a.brep] a 
explode a
set j 1
repeat 8 {
    explode a_$j
    if { [catch {OCC405 result a_${j}_1 a_${j}_2} catch_result] } {
	puts "Faulty  OCC435 : merge operation was made incorrect"
    } else {
	puts " OCC435 OK:  merge operation was made properly"
    }
    incr j
} 

set length 17.2848
set 3dviewer 1
Commit	Line	Data
61c421bf	1	pload QAcommands
	2
	3	#INTERFACE IGES
	4	puts "========================"
	5	puts " OCC435 "
	6	puts " OCC405 "
	7	puts "========================"
	8	puts ""
	9	###############################################################
	10	## Exception Standard_ConstructuionError is rased in DRAW in the
	11	## GeomConvert_CompCurveToBSplineCurve on the attached shapes during command merge
	12	###############################################################
	13
	14	restore [locate_data_file OCC435a.brep] a
	15	explode a
	16	set j 1
	17	repeat 8 {
	18	explode a_$j
	19	if { [catch {OCC405 result a_${j}_1 a_${j}_2} catch_result] } {
	20	puts "Faulty OCC435 : merge operation was made incorrect"
	21	} else {
	22	puts " OCC435 OK: merge operation was made properly"
	23	}
	24	incr j
	25	}
	26
	27	set length 17.2848
	28	set 3dviewer 1