Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60827
1 puts "TODO OCC12345 ALL: Tcl Exception: Error: file BUC60827d.brep could not be found"
2 puts "TODO OCC12345 ALL: TEST INCOMPLETE"
3
4 puts "========================"                                                 
5 puts "BUC60827"                                                                 
6 puts "========================"                                                 
7                                                                  
8 #restore Model3-a.brep a
9 restore [locate_data_file BUC60827c.brep] a 
10
11 #restore Model3-b.brep b
12 restore [locate_data_file BUC60827d.brep] b
13
14 set che [checkshape a]
15 if { [regexp {Faulty} $che ] == 1 } {
16     puts "Faulty BUC60827 (shape 1): Source shape is invalid. It was detected by Checkshape command"
17     puts "Body of the script was NOT executed"
18     renamevar a result
19 } else {
20     puts "BUC60827 OK (shape 1): Source shape is valid"
21
22     set che [checkshape b]
23     if { [regexp {Faulty} $che ] == 1 } {
24         puts "Faulty BUC60827 (shape 2): Source shape is invalid. It was detected by Checkshape command"
25         puts "Body of the script was NOT executed"
26         renamevar b result
27     } else {
28         puts "BUC60827 OK (shape 2): Source shape is valid"
29
30         bsection result a b
31         set rlen 0
32         set rlen [llength [explode res v]]
33         if ([expr $rlen  == 0]) {
34             puts "Faulty :The result of section is an empty compound."
35         } else {
36             distmini d1 res_1 a_1    
37             regexp {([-0-9.+eE]+)} [dump d1_val] full len1
38             if ([expr $len1 > 1e-7]) {                                                       
39                 puts "Faulty :The section is incomplite."                                           
40             } else {                                                                              
41                 distmini d2 res_2 a_2
42                 regexp {([-0-9.+eE]+)} [dump d2_val] full len2
43                 if ([expr $len2 > 1e-7]) {
44                     puts "Faulty :The section is incomplite."
45                 }
46             }
47         }
48     }
49 }
50
51 set length 0
52 set 2dviewer 0