Adjusting testing cases for current state of OCCT
[occt.git] / tests / offset / faces_type_i / E7
1 set os "ALL"
2 if {[array get env os_type] != ""} {
3   set os $env(os_type)
4 }
5
6 if {
7        [string compare $os "Mandriva2010"] == 0
8    } {
9   puts "TODO OCC23068 $os: An exception was caught"
10   puts "TODO OCC23068 $os: \\*\\* Exception \\*\\*"
11   puts "TODO OCC23068 $os: TEST INCOMPLETE"
12 } else {
13   puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_1"
14   puts "TODO OCC23068 $os: Error : The offset is not valid. "
15   puts "TODO OCC23068 $os: Error : The area of face result_5 of the resulting shape is negative."
16 }
17
18 ellipse w1 0 0 0 15 10
19 mkedge w1 w1 0 pi/2
20 trotate w1 0 0 0 1 0 0 90
21 polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
22 wire w w1 w2
23 mkplane w w
24 revol s w 0 0 0 0 0 1 90
25
26 OFFSETSHAPE 1 {s_4} $calcul $type
27
28 set volume 0