1#puts "TODO OCC27024 ALL: Error : The length of result shape is" 2 3puts "=============" 4puts "BUC60462" 5puts "=============" 6puts "Section" 7puts "" 8 9restore [locate_data_file buc60462a.brep] a 10checkshape a 11restore [locate_data_file buc60462b.brep] b 12checkshape b 13bsection result a b 14 15regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs 16 17if { $cs != 0 } { 18 puts "Faulty : Section is incorrect" 19} 20 21checkprops result -l 282.421 22checkshape result 23checksection result 24checkview -display result -2d -path ${imagedir}/${test_image}.png 25