Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60463
1 puts "TODO OCC12345 ALL: Error : The length of result shape is"
2 puts "TODO OCC12345 ALL: Faulty : Section is incorrect"
3
4 puts "============="
5 puts "BUC60463"
6 puts "============="
7 puts "Section"
8 puts ""
9 cpulimit 1400
10 restore [locate_data_file buc60463a.brep] a 
11 puts [checkshape a]
12 restore [locate_data_file buc60463b.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 if { $cs != 0 } {
18     puts "Faulty : Section is incorrect"
19 }
20 set length 0
21 set 2dviewer 0
22