[occt.git] / tests / bugs / moddata_1 / buc60868


puts "========"                                                                                                                                                 
puts "BUC60868"                                                                                                                                                 
puts "========"                                                                                                                                                 
puts ""                                                                         

pload QAcommands

restore [locate_data_file buc60868.brep] sh 
checkshape sh

BUC60868 result sh
checkshape result

set len [llength [explode result w]]
if { $len != 3 } {
    puts "Error : the number of curves is $len, but it should be 3."
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "BUC60868"
	4	puts "========"
	5	puts ""
	6
	7	pload QAcommands
	8
	9	restore [locate_data_file buc60868.brep] sh
352ffd73	10	checkshape sh
0e94a94e	11
0e94a94e	12	BUC60868 result sh
352ffd73	13	checkshape result
0e94a94e	14
	15	set len [llength [explode result w]]
	16	if { $len != 3 } {
	17	puts "Error : the number of curves is $len, but it should be 3."
	18	}
	19
	20	set 2dviewer 0
	21