Adding test cases from chl grid
[occt.git] / tests / bugs / moddata / bug23092
1 puts "================"
2 puts "OCC23092"
3 puts "================"
4 puts ""
5 ###################################################################################################
6 # Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
7 ###################################################################################################
8
9 set BugNumber OCC23092
10
11 restore [locate_data_file OCC23092-bal8h.brep] h 
12 restore [locate_data_file OCC23092-bal8s.brep] s 
13 set info1 [ prj r s h 0 0 1 ]
14 set word1 [string compare [lindex ${info1} end] "r_1"]
15 don r_1 r_2
16 explode r_1 E
17 explode r_2 V
18 set info2 [ don r_1_10 r_2_1 r_2_2 ]
19 set word2 [string compare [lindex ${info2} end] "r_1_10"]
20
21 # Resume
22 puts ""
23 if { ${word1} == 0 && ${word2} == 0 } {
24    puts "OK ${BugNumber}"
25 } else {
26    puts "Faulty ${BugNumber}"
27 }
28