0027146: Create command checkplatform
[occt.git] / tests / chamfer / data / complex / B9
... / ...
CommitLineData
1set chamf_shape 4_L1(hlacg03).draw
2set chamf_edge_face [list " 6 1" " 5 1" " 9 2"]
3set chamf_dist_angle [list "1.2 30" " 1 30" " 1 30"]
4set chamf_dist_dist [list "1.1 1" " 1 1.2" " 1 1.4"]
5set chamf_equal_dist [list "1 " "1.1 " "1.2 "]
6dset SCALE 100
7if { [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}