Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60690
1 puts "TODO OCC12345 ALL: Faulty : The distance between"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3
4 puts "========================"
5 puts "BUC60690"
6 puts "========================"
7 puts ""
8
9 restore [locate_data_file buc60690a.brep] a 
10 restore [locate_data_file buc60690b.brep] b
11
12 set che [checkshape a]
13 if { [regexp {Faulty} $che ] == 1 } {
14     puts "Faulty BUC60690 (shape 1): Source shape is invalid. It was detected by Checkshape command"
15     puts "Body of the script was NOT executed"
16     renamevar a result
17 } else {
18     puts "BUC60690 OK (shape 1): Source shape is valid"
19     set che [checkshape b]
20     if { [regexp {Faulty} $che ] == 1 } {
21         puts "Faulty BUC60690 (shape 2): Source shape is invalid. It was detected by Checkshape command"
22         puts "Body of the script was NOT executed"
23         renamevar b result
24     } else {
25         puts "BUC60690 OK (shape 2): Source shape is valid"
26
27         bsection result a b
28
29         set le [explode result v]
30         distmini d1 result_1 b
31         distmini d2 [lindex $le [expr [llength $le] - 1]] b
32         
33         regexp {([-0-9.+eE]+)} [dump d1_val] full du1
34         
35         if { [expr $du1 > 1e-7] } {
36             puts "Faulty : The distance between first vertex and shellB is $du1. It is more then 1e-7."
37         }
38         
39         regexp {([-0-9.+eE]+)} [dump d2_val] full du2
40         if { [expr $du2 > 1e-7] } {
41             puts "Faulty : The distance between last vertex and shellB is $du2. It is more then 1e-7."
42         }
43     }
44 }
45 set length 0
46 set 2dviewer 0
47
48