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

pload QAcommands

puts "================"
puts "OCC434"
puts "SAM1296"
puts "================"
puts ""

########################################################
## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
########################################################

restore [locate_data_file OCC434.brep] e 
checkshape e
explode e e

OCC405 result e_1 e_2

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num

if { $num == 2 } {
    puts "OCC434 OK : Result shape is CORRECT !!! "
} else {
    puts " Faulty OCC434: Result shape is INcorrect !!! "
}

checkprops result -l 8.74616 
checkshape result 
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
61c421bf	1	pload QAcommands
	2
	3	puts "================"
	4	puts "OCC434"
	5	puts "SAM1296"
	6	puts "================"
	7	puts ""
	8
	9	########################################################
	10	## Exception is raised on NT, SUN in the GeomConvert_CompCurveToBSplineCurve
	11	########################################################
	12
	13	restore [locate_data_file OCC434.brep] e
	14	checkshape e
	15	explode e e
	16
	17	OCC405 result e_1 e_2
	18
	19	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
	20
	21	if { $num == 2 } {
	22	puts "OCC434 OK : Result shape is CORRECT !!! "
	23	} else {
	24	puts " Faulty OCC434: Result shape is INcorrect !!! "
	25	}
	26
58cf74e0	27	checkprops result -l 8.74616
58cf74e0	28	checkshape result
5747059b	29	checkview -display result -2d -path ${imagedir}/${test_image}.png
61c421bf	30