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   set os "ALL"
  11   if {[array get env os_type] != ""} {
  12     set os $env(os_type)
  13   }
  14
  15   if { [string compare ${os} "Windows-64-VC9"] != 0 && [string compare ${os} "Windows-64-VC10"] != 0} {
  16     set nf 0
  17     if {[string compare $os "Debian70-64"] == 0 } {
  18       if { [string compare $group dist_dist] == 0 } {
  19         set nf 2
  20       } elseif { [string compare $group equal_dist] == 0 } {
  21         set nf 4
  22       }
  23     }
  24   }
  25
  26   if { [string compare ${os} "windows"] == 0} {
  27     if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
  28       set nf 2
  29     }
  30   }
  31
  32   if { [string compare ${os} "MacOS"] == 0 } {
  33     set nf 0
  34     if { [string compare $group dist_dist] == 0 } {
  35       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
  36       set nf 8
  37     }
  38     if { [string compare $group equal_dist] == 0 } {
  39       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
  40       set nf 2
  41     }
  42     if { [string compare $group dist_angle] == 0 } {
  43       puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
  44     }
  45   }
  46
  47   if { $nf != 0 } {
  48      #puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
  49      puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
  50   }
  51 }