Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug235
CommitLineData
a87752f3 1puts "================"
2puts "OCC235"
3puts "================"
4puts ""
5#######################################################
6## Intersection algorithm finds two intersection curves. One curve is closed while
7## second is not (the distance between first and last points is 2e-5).
8#######################################################
9
10restore [locate_data_file OCC235a.rle] su1
11############### checkshape su1 # is not a topological shape
12restore [locate_data_file OCC235b.rle] su2
13############### checkshape su2 # is not a topological shape
14
15intersect result su1 su2
16
17set dir [directory]
18set nb_result [regexp -all {result} $dir]
19if { $nb_result != 2 } {
20 puts "Faulty OCC235 (first checking): Intersection was made WRONGLY"
21} else {
22 puts "OCC235 OK (first checking) : Intersection command works properly"
23
24 regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1
25 if { $num_1 != 0 } {
26 puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! "
27 } else {
28 puts " OCC235 OK (second checking): Result result_1 is closed !!! "
29 }
30
31 regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2
32 if { $num_2 != 0 } {
33 puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! "
34 } else {
35 puts " OCC235 OK (second checking): Result result_2 is closed !!! "
36 }
37}
38
39set 2dviewer 0
40
41