Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_1 / buc60690
CommitLineData
a87752f3 1puts "TODO OCC12345 ALL: Faulty : The distance between"
2puts "TODO OCC12345 ALL: Error : The length of result shape is"
3
4puts "========================"
5puts "BUC60690"
6puts "========================"
7puts ""
8
9restore [locate_data_file buc60690a.brep] a
10restore [locate_data_file buc60690b.brep] b
11
12set che [checkshape a]
13if { [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
f1aa2b62 33 regexp {([-0-9.+eE]+)$} [dump d1_val] full du1
a87752f3 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
f1aa2b62 39 regexp {([-0-9.+eE]+)$} [dump d2_val] full du2
a87752f3 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}
45set length 0
46set 2dviewer 0
47
48