8da5fb19 |
1 | puts "==========" |
2 | puts "OCC24263" |
3 | puts "==========" |
4 | puts "" |
5 | ################################################### |
6 | # TNaming_CopyShape::CopyTool failure |
7 | ################################################### |
8 | |
9 | box b 100 100 100 |
10 | explode b F |
11 | if { [regexp "Copy is Done" [CopyShape b b_1] ] != 1 } { |
12 | puts "Error : Copy is not done" |
13 | } else { |
14 | puts "OK : Copy is done" |
15 | } |
16 | |
17 | if { [regexp "SOLID FORWARD" [whatis b_c] ] != 1 } { |
18 | puts "Error : b_c is not a solid forward" |
19 | } else { |
20 | puts "OK : b_c is a solid forward" |
21 | } |
22 | |
23 | if { [regexp "FACE REVERSED" [whatis b_1_c] ] != 1 } { |
24 | puts "Error : b_1_c is not a face reversed" |
25 | } else { |
26 | puts "OK : b_1_c is a face reversed" |
27 | } |