Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60462_1
1 puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3
4 puts "============="
5 puts "BUC60462"
6 puts "============="
7 puts "Section"
8 puts ""
9
10 restore [locate_data_file buc60462a.brep] a 
11 puts [checkshape a]
12 restore [locate_data_file buc60462b.brep] b
13 puts [checkshape b]
14 bsection result a b
15
16 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
17
18 if { $cs != 0 } {
19     puts "Faulty : Section is incorrect"
20 }
21
22 set length 0
23 set 2dviewer 0