Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug236
1 puts "TODO OCC12345 ALL: Faulty OCC236"
2
3 puts "================"
4 puts "OCC236"
5 puts "================"
6 puts ""
7 #######################################################
8 ##Result of intersection of two surfaces of linear extrusion is incorrect.
9 #######################################################
10
11 restore [locate_data_file OCC236a.rle] su1 
12 ############### checkshape su1 # is not a topological shape
13 restore [locate_data_file OCC236b.rle] su2
14 ############### checkshape su2 # is not a topological shape
15
16 intersect result su1 su2
17
18 set che [directory]
19 set err [lindex $che [expr [llength $che] - 1]]
20 if { $err != "result_2"} {
21     puts "Faulty OCC236"
22 } else {
23     puts "OCC236 OK (first checking) : Intersection command works properly"
24     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num
25     if { $num != 0 } {
26         puts " Faulty OCC236 (second checking): Result result_1 is UNclosed !!! " 
27     } else {
28         puts " OCC236 OK (second checking): Result result_1 is closed !!! " 
29         puts ""
30     }
31     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num
32     if { $num != 0 } {
33         puts " Faulty OCC236 (second checking): Result result_2 is UNclosed !!! " 
34     }  else {
35         puts " OCC236 OK (second checking): Result result_2 is closed !!! " 
36     }
37 }
38
39 set 2dviewer 0
40