tests/gdt/dimensions/end

   1 set value [XGetDimensionValue D 0:1:4:1]
   2 set type [XGetDimensionType D 0:1:4:1]
   3 set qualif [XGetDimensionQualifier D 0:1:4:1]
   4 set range [XGetDimensionRange D 0:1:4:1]
   5 set classtol [XGetDimensionClassOfTol D 0:1:4:1]
   6 set d [XGetDimensionNbOfDecimalPlaces D 0:1:4:1]
   7 set dir [XGetDimensionDir D 0:1:4:1]
   8 set pnts [XGetDimensionPoints D 0:1:4:1]
   9 set mod [XGetDimensionModifiers  D 0:1:4:1]
  10 set plusminus [XGetDimensionPlusMinusTol D  0:1:4:1]
  11 set dump [XDumpDGTs D all]
  12
  13 if { $c_value != 0 && $value != $c_value} {
  14  puts "Error wrong value"
  15 } else {
  16   if { $c_type != 0 && [string compare $type $c_type] != 0} {
  17    puts "Error wrong type"
  18   } else {
  19     if { $c_qalif !=  0 && [string compare $qualif $c_qalif] != 0} {
  20      puts "Error wrong qualifier"
  21     } else {
  22       if { $c_classtol !=  0 && $classtol != $c_classtol} {
  23        puts "Error wrong class of tolerance"
  24       } else {
  25         if { $c_d !=  0 && $d != $c_d} {
  26          puts "Error wrong nbdigit"
  27         } else {
  28           if { $c_modif !=  0 && [string compare $modif $c_modif] != 0} {
  29            puts "Error wrong modifiers"
  30           } else {
  31             if { $c_dir !=  0 && [string compare $dir $c_dir] != 0} {
  32              puts "Error wrong direction"
  33             } else {
  34               if { $c_pnts !=  0 && [string compare $pnts $c_pnts] != 0} {
  35                puts "Error wrong points"
  36               } else {
  37                 if { $c_range !=  0 && [string compare $range $c_range] != 0} {
  38                  puts "Error wrong range"
  39                 } else {
  40                   if { $c_mod !=  0 && [string compare $mod $c_mod] != 0} {
  41                    puts "Error wrong modifiers"
  42                   } else {
  43                     if { $c_plusminus !=  0 && [string compare $plusminus $c_plusminus] != 0} {
  44                      puts "Error wrong modifiers"
  45                     } else {
  46                       puts "TEST COMPLETED"
  47                     }
  48                   }
  49                 }
  50               }
  51             }
  52           }
  53         }
  54       }
  55     }
  56   }
  57 }