0027304: Implemetation of descriptions for Dimensions

[occt.git] / tests / gdt / dimensions / end

diff --git a/tests/gdt/dimensions/end b/tests/gdt/dimensions/end
index cf61d0d..de04d1f 100644 (file)
--- a/tests/gdt/dimensions/end
+++ b/tests/gdt/dimensions/end
@@ -1,57 +1,80 @@
+# value
 set value [XGetDimensionValue D 0:1:4:1]
+if { $c_value != 0 && $value != $c_value} {
+ puts "Error: wrong value"
+}
+# type
 set type [XGetDimensionType D 0:1:4:1]
+if { $c_type != 0 && [string compare $type $c_type] != 0} {
+ puts "Error: wrong type"
+}
+# qualifier
 set qualif [XGetDimensionQualifier D 0:1:4:1]
-set range [XGetDimensionRange D 0:1:4:1]
+if { $c_qalif !=  0 && [string compare $qualif $c_qalif] != 0} {
+  puts "Error: wrong qualifier"
+}
+# tolerance class
 set classtol [XGetDimensionClassOfTol D 0:1:4:1]
+if { $c_classtol !=  0 && $classtol != $c_classtol} {
+ puts "Error: wrong class of tolerance"
+}
+# number of decimal digits
 set d [XGetDimensionNbOfDecimalPlaces D 0:1:4:1]
+if { $c_d !=  0 && $d != $c_d} {
+ puts "Error: wrong number of decimal digits"
+}
+# modifiers
+if { $c_modif !=  0 && [string compare $modif $c_modif] != 0} {
+ puts "Error: wrong modifiers"
+}
+# direction
 set dir [XGetDimensionDir D 0:1:4:1]
+if { $c_dir !=  0 && [string compare $dir $c_dir] != 0} {
+ puts "Error: wrong direction"
+}
+#points
 set pnts [XGetDimensionPoints D 0:1:4:1]
+if { $c_pnts !=  0 && [string compare $pnts $c_pnts] != 0} {
+ puts "Error: wrong points"
+}
+# range
+set range [XGetDimensionRange D 0:1:4:1]
+if { $c_range !=  0 && [string compare $range $c_range] != 0} {
+ puts "Error: wrong range"
+}
+# modifiers
 set mod [XGetDimensionModifiers  D 0:1:4:1]
+if { $c_mod !=  0 && [string compare $mod $c_mod] != 0} {
+ puts "Error: wrong modifiers"
+}
+# plus minus tolerance
 set plusminus [XGetDimensionPlusMinusTol D  0:1:4:1]
-set dump [XDumpDGTs D all]
-
-if { $c_value != 0 && $value != $c_value} {
- puts "Error wrong value"
-} else {
-  if { $c_type != 0 && [string compare $type $c_type] != 0} {
-   puts "Error wrong type"
+if { $c_plusminus !=  0 && [string compare $plusminus $c_plusminus] != 0} {
+ puts "Error: wrong plus minus tolerance"
+}
+# descriptions
+set descriptions [XGetDimensionDescr D 0:1:4:1]
+if {$c_descr != 0} {
+  set ref_list [split $descriptions \n]
+  set cur_list [split $c_descr \n]
+  set nb_ref [llength $ref_list]
+  set nb_cur [llength $cur_list]
+  if {$nb_ref != $nb_cur} {
+    puts "Error: wrong number of descriptions"
   } else {
-    if { $c_qalif !=  0 && [string compare $qualif $c_qalif] != 0} {
-     puts "Error wrong qualifier"
-    } else {
-      if { $c_classtol !=  0 && $classtol != $c_classtol} {
-       puts "Error wrong class of tolerance"
-      } else {
-        if { $c_d !=  0 && $d != $c_d} {
-         puts "Error wrong nbdigit"
-        } else {
-          if { $c_modif !=  0 && [string compare $modif $c_modif] != 0} {
-           puts "Error wrong modifiers"
-          } else {
-            if { $c_dir !=  0 && [string compare $dir $c_dir] != 0} {
-             puts "Error wrong direction"
-            } else {
-              if { $c_pnts !=  0 && [string compare $pnts $c_pnts] != 0} {
-               puts "Error wrong points"
-              } else {
-                if { $c_range !=  0 && [string compare $range $c_range] != 0} {
-                 puts "Error wrong range"
-                } else {
-                  if { $c_mod !=  0 && [string compare $mod $c_mod] != 0} {
-                   puts "Error wrong modifiers"
-                  } else {
-                    if { $c_plusminus !=  0 && [string compare $plusminus $c_plusminus] != 0} {
-                     puts "Error wrong modifiers"
-                    } else {
-                      puts "TEST COMPLETED"
-                    }
-                  }
-                }
-              }
-            }
-          }
-        }
+    for { set i 0 } { $i < $nb_ref } { incr i } {
+      set refstr [lindex $ref_list $i]
+      set curstr [lindex $cur_list $i]
+      set isOK 1;
+    
+      if {[string equal $refstr $curstr] == 0} {
+        set isOK 0 
       }
     }
   }
+  if {$isOK == 0} {
+    puts "Error: wrong descriptions"
+  }
 }
+
+puts "TEST COMPLETED"