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