0023450: Test bugs vis CR23407_1 fails
[occt.git] / tests / boolean / bopfuse_simple / ZP6
1 #
2 # *10603
3 #
4 #Create 3 torus
5 set os "ALL"
6 if {[array get env os_type] != ""} {
7   set os $env(os_type)
8 }
9 if {[string compare $os "Debian50-64"] != 0 && [string compare $os "Debian60-64"] != 0 && [string compare $os "Mandriva2010-64"] != 0} {
10   set inst ""
11   if { [regexp -nocase {Windows} $os] == 1 } {
12     set inst "?"
13   }
14   # CR23404
15   puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
16 }
17
18 if {  [string compare $os "CentOS55-64"] == 0
19   ||  [string compare $os "Debian40"] == 0 
20   ||  [string compare $os "Debian40-64"] == 0
21   ||  [string compare $os "Mandriva2008"] == 0
22   ||  [string compare $os "Mandriva2008-64"] == 0
23   ||  [string compare $os "SL51-64"] == 0
24 } {
25   puts "TODO OCC22911 $os: Error : The square of result shape is"
26 }
27
28 ptorus a0 100 20
29 tcopy a0 a1
30 tcopy a0 a2
31 trotate a1 0 0 0 1 0 0 90
32 trotate a2 0 0 0 0 1 0 90
33
34 bop a0 a1
35 bopfuse x1
36
37 bop x1 a2
38 bopfuse result
39
40 set square 197700