Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60880
1
2 puts "============"
3 puts "BUC60880"
4 puts "============"
5 puts ""
6 ##########################################
7 ## We have overlapping edges when section a shell by plane. 
8 ##########################################
9
10 restore [locate_data_file BUC60880_sec_error2.brep] sh 
11 puts [checkshape sh]
12
13 plane pl 65000 19000 2600 1 0 0
14 mkface f pl
15
16 bsection result sh f
17
18 set nb_info [nbshapes result]
19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
20
21 if { $ed == 1 } {
22     puts  "BUC60880 OK: SECTION operation was made properly"
23 } else {
24     explode result e
25     set status [OCC333 result_1 result_2]
26     if {[llength ${status}] < 1} {
27         puts "BUC60880 ERROR"
28     } else {
29         regexp {([-0-9.+eE]+)} $status full code
30         if { ${code} == 3 || ${code} == 2} {
31             puts "BUC60880  : Section command works properly"
32         } else {
33             puts "Faulty BUC60880: Section was made WRONGLY"
34         }
35     }
36 }
37 set length 1424.94
38 set 2dviewer 0