tests/gdt/dimensions/end

   1 # value
   2 set value [XGetDimensionValue D 0:1:4:1]
   3 if { $c_value != 0 && $value != $c_value} {
   4  puts "Error: wrong value"
   5 }
   6 # type
   7 set type [XGetDimensionType D 0:1:4:1]
   8 if { $c_type != 0 && [string compare $type $c_type] != 0} {
   9  puts "Error: wrong type"
  10 }
  11 # qualifier
  12 set qualif [XGetDimensionQualifier D 0:1:4:1]
  13 if { $c_qalif !=  0 && [string compare $qualif $c_qalif] != 0} {
  14   puts "Error: wrong qualifier"
  15 }
  16 # tolerance class
  17 set classtol [XGetDimensionClassOfTol D 0:1:4:1]
  18 if { $c_classtol !=  0 && $classtol != $c_classtol} {
  19  puts "Error: wrong class of tolerance"
  20 }
  21 # number of decimal digits
  22 set d [XGetDimensionNbOfDecimalPlaces D 0:1:4:1]
  23 if { $c_d !=  0 && $d != $c_d} {
  24  puts "Error: wrong number of decimal digits"
  25 }
  26 # modifiers
  27 if { $c_modif !=  0 && [string compare $modif $c_modif] != 0} {
  28  puts "Error: wrong modifiers"
  29 }
  30 # direction
  31 set dir [XGetDimensionDir D 0:1:4:1]
  32 if { $c_dir !=  0 && [string compare $dir $c_dir] != 0} {
  33  puts "Error: wrong direction"
  34 }
  35 #points
  36 set pnts [XGetDimensionPoints D 0:1:4:1]
  37 if { $c_pnts !=  0 && [string compare $pnts $c_pnts] != 0} {
  38  puts "Error: wrong points"
  39 }
  40 # range
  41 set range [XGetDimensionRange D 0:1:4:1]
  42 if { $c_range !=  0 && [string compare $range $c_range] != 0} {
  43  puts "Error: wrong range"
  44 }
  45 # modifiers
  46 set mod [XGetDimensionModifiers  D 0:1:4:1]
  47 if { $c_mod !=  0 && [string compare $mod $c_mod] != 0} {
  48  puts "Error: wrong modifiers"
  49 }
  50 # plus minus tolerance
  51 set plusminus [XGetDimensionPlusMinusTol D  0:1:4:1]
  52 if { $c_plusminus !=  0 && [string compare $plusminus $c_plusminus] != 0} {
  53  puts "Error: wrong plus minus tolerance"
  54 }
  55 # descriptions
  56 set descriptions [XGetDimensionDescr D 0:1:4:1]
  57 if {$c_descr != 0} {
  58   set ref_list [split $descriptions \n]
  59   set cur_list [split $c_descr \n]
  60   set nb_ref [llength $ref_list]
  61   set nb_cur [llength $cur_list]
  62   if {$nb_ref != $nb_cur} {
  63     puts "Error: wrong number of descriptions"
  64   } else {
  65     for { set i 0 } { $i < $nb_ref } { incr i } {
  66       set refstr [lindex $ref_list $i]
  67       set curstr [lindex $cur_list $i]
  68       set isOK 1;
  69
  70       if {[string equal $refstr $curstr] == 0} {
  71         set isOK 0
  72       }
  73     }
  74   }
  75   if {$isOK == 0} {
  76     puts "Error: wrong descriptions"
  77   }
  78 }
  79
  80 puts "TEST COMPLETED"