0027146: Create command checkplatform
[occt.git] / tests / chamfer / data / complex / B9
1 set chamf_shape 4_L1(hlacg03).draw
2 set chamf_edge_face  [list "  6  1" "  5   1" "  9   2"]
3 set chamf_dist_angle [list "1.2 30" "  1  30" "  1  30"]
4 set chamf_dist_dist  [list "1.1  1" "  1 1.2" "  1 1.4"]
5 set chamf_equal_dist [list "1     " "1.1    " "1.2    "]
6 dset SCALE 100
7 if { [string compare $command chamf_sequence] == 0 } {
8   puts "TODO #22909 ALL: Error: The tests should be reviewed"
9   puts "Error: The tests should be reviewed."
10   
11   set nf 0
12   if { ![checkplatform -windows] } {
13     if { [string compare $group dist_dist] == 0 } {
14       set nf 2
15     } elseif { [string compare $group equal_dist] == 0 } {
16       set nf 4
17     }
18   }
19   
20   if { [checkplatform -windows] } {
21     if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
22       set nf 2
23     }
24   }
25
26   if { [checkplatform -osx] } {
27     if { [string compare $group dist_dist] == 0 } {
28       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
29       set nf 8
30     }
31     if { [string compare $group equal_dist] == 0 } {
32       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
33       set nf 2
34     }
35     if { [string compare $group dist_angle] == 0 } {
36       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
37     }
38   }  
39
40   if { $nf != 0 } {
41      #puts "TODO OCC22909 [checkplatform]:Faulty shapes in variables faulty_1 to faulty_$nf"
42      puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
43   }
44 }