Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug235
1 puts "================"
2 puts "OCC235"
3 puts "================"
4 puts ""
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
10 restore [locate_data_file OCC235a.rle] su1 
11 ############### checkshape su1 # is not a topological shape
12 restore [locate_data_file OCC235b.rle] su2
13 ############### checkshape su2 # is not a topological shape
14
15 intersect result su1 su2
16
17 set dir [directory]
18 set nb_result [regexp -all {result} $dir]
19 if { $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
39 set 2dviewer 0
40
41