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 $group equal_dist] == 0 } {
  18       if {[string compare $os "Debian40"] == 0 || [string compare $os "Debian60-64"] == 0 || [string compare $os "Mandriva2008"] == 0 || [string compare $os "Mandriva2010"] == 0 } {
  19         set nf 4
  20       }
  21     }
  22     if { [string compare $group dist_dist] == 0 } {
  23       if {[string compare $os "Mandriva2010"] == 0 || [string compare $os "Debian60-64"] == 0 } {
  24         set nf 2
  25       ##set nf 0
  26       }
  27     }
  28   }
  29
  30   if { [string compare ${os} "windows"] == 0} {
  31     if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
  32       set nf 2
  33     }
  34   }
  35
  36   if { [string compare ${os} "MacOS"] == 0 } {
  37     set nf 0
  38     if { [string compare $group dist_dist] == 0 } {
  39       set nf 8
  40     }
  41     if { [string compare $group equal_dist] == 0 } {
  42       set nf 2
  43     }
  44   }
  45
  46   if { $nf != 0 } {
  47      #puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
  48      puts "TODO ?OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
  49   }
  50 }