0027463: Checkprops can not be used with several properties
authorapn <apn@opencascade.com>
Wed, 4 May 2016 11:13:02 +0000 (14:13 +0300)
committerbugmaster <bugmaster@opencascade.com>
Thu, 12 May 2016 07:46:21 +0000 (10:46 +0300)
Added possibility to use several properties in one checkprops command

Modified test cases according to changes in checkprops command

40 files changed:
src/DrawResources/CheckCommands.tcl
tests/pipe/specific/K4
tests/pipe/specific/K7
tests/pipe/specific/K8
tests/pipe/specific/L1
tests/pipe/specific/L4
tests/pipe/specific/L5
tests/pipe/specific/L7
tests/pipe/specific/L9
tests/pipe/specific/M2
tests/pipe/specific/M4
tests/pipe/specific/M6
tests/pipe/specific/M9
tests/pipe/specific/N1
tests/pipe/specific/N4
tests/pipe/specific/N5
tests/pipe/specific/N7
tests/pipe/specific/N9
tests/pipe/specific/O2
tests/pipe/specific/O4
tests/pipe/specific/O6
tests/pipe/specific/O8
tests/pipe/specific/P1
tests/pipe/specific/P3
tests/pipe/specific/P5
tests/pipe/specific/P7
tests/pipe/specific/P9
tests/pipe/specific/Q2
tests/pipe/specific/Q4
tests/pipe/specific/Q6
tests/pipe/specific/Q8
tests/pipe/specific/R1
tests/pipe/specific/R3
tests/pipe/specific/R5
tests/pipe/specific/R7
tests/pipe/specific/R9
tests/pipe/specific/S2
tests/pipe/specific/S4
tests/pipe/specific/S6
tests/pipe/specific/S7

index 1caf323..bfb47c2 100644 (file)
@@ -543,21 +543,15 @@ proc checkprops {shape args} {
     _check_args ${args} ${options} "checkprops"
 
     if { ${length} != -1 || ${equal_check} == 1 } {
-        set CommandName lprops
-        set mass $length
-        set prop "length"
+        lappend CommandNames {lprops}
         set equal_check 0
     }
     if { ${area} != -1 || ${equal_check} == 1 } {
-        set CommandName sprops
-        set mass $area
-        set prop "area"
+        lappend CommandNames {sprops}
         set equal_check 0
     }
     if { ${volume} != -1 || ${equal_check} == 1 } {
-        set CommandName vprops
-        set mass $volume
-        set prop "volume"
+        lappend CommandNames {vprops}
         set equal_check 0
     }
 
@@ -565,41 +559,47 @@ proc checkprops {shape args} {
     if { $skip } {
         set skip_option "-skip"
     }
-        
     
-    regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${shape} ${epsilon} $skip_option] full m
-
-    if { ${compared_equal_shape} != -1 } {
-        upvar ${compared_equal_shape} ${compared_equal_shape}
-        regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${compared_equal_shape} ${epsilon} $skip_option] full compared_m
-        if { $compared_m != $m } {
-            puts "Error: Shape ${compared_equal_shape} is not equal to shape ${shape}"
+    foreach CommandName ${CommandNames} {
+        switch $CommandName {
+            "lprops"    { set mass ${length}; set prop "length" }
+            "sprops"    { set mass ${area}; set prop "area" }
+            "vprops"    { set mass ${volume}; set prop "volume" }
         }
-    }
+        regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${shape} ${epsilon} $skip_option] full m
 
-    if { ${compared_notequal_shape} != -1 } {
-        upvar ${compared_notequal_shape} ${compared_notequal_shape}
-        regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${compared_notequal_shape} ${epsilon} $skip_option] full compared_m
-        if { $compared_m == $m } {
-            puts "Error: Shape ${compared_notequal_shape} is equal shape to ${shape}"
+        if { ${compared_equal_shape} != -1 } {
+            upvar ${compared_equal_shape} ${compared_equal_shape}
+            regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${compared_equal_shape} ${epsilon} $skip_option] full compared_m
+            if { $compared_m != $m } {
+                puts "Error: Shape ${compared_equal_shape} is not equal to shape ${shape}"
+            }
         }
-    }
 
-    if { ${compared_equal_shape} == -1 && ${compared_notequal_shape} == -1 } {
-        if { [string compare "$mass" "empty"] != 0 } {
-            if { $m == 0 } {
-                puts "Error : The command is not valid. The $prop is 0."
+        if { ${compared_notequal_shape} != -1 } {
+            upvar ${compared_notequal_shape} ${compared_notequal_shape}
+            regexp {Mass +: +([-0-9.+eE]+)} [eval ${CommandName} ${compared_notequal_shape} ${epsilon} $skip_option] full compared_m
+            if { $compared_m == $m } {
+                puts "Error: Shape ${compared_notequal_shape} is equal shape to ${shape}"
             }
-            if { $mass > 0 } {
-                puts "The expected $prop is $mass"
-            }
-            #check of change of area is < 1%
-            if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
-                puts "Error : The $prop of result shape is $m"
-            }
-        } else {
-            if { $m != 0 } {
-                puts "Error : The command is not valid. The $prop is $m"
+        }
+
+        if { ${compared_equal_shape} == -1 && ${compared_notequal_shape} == -1 } {
+            if { [string compare "$mass" "empty"] != 0 } {
+                if { $m == 0 } {
+                    puts "Error : The command is not valid. The $prop is 0."
+                }
+                if { $mass > 0 } {
+                    puts "The expected $prop is $mass"
+                }
+                #check of change of area is < 1%
+                if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+                    puts "Error : The $prop of result shape is $m"
+                }
+            } else {
+                if { $m != 0 } {
+                    puts "Error : The command is not valid. The $prop is $m"
+                }
             }
         }
     }
index 3af79c4..5e58641 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 32493.7 -v 108899
+checkprops result -s 30670.1 -v 108899
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 33e94dd..5359091 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 34206.6 -v 117501
+checkprops result -s 32766.2 -v 117501
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 76f7957..46cfff0 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -R -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 35327.9 -v 124779
+checkprops result -s 33884 -v 124779
 
 checknbshapes result -vertex 3 -edge 8 -wire 5 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 23
index 691d5c2..5d19a44 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 32535.9 -v 103756
+checkprops result -s 30548.1 -v 103756
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 724a02c..1e7a751 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 34072.6 -v 112329
+checkprops result -s 32485.2 -v 112329
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 30cb0c2..3adf96b 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -R -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 38315.9 -v 147866
+checkprops result -s 36725.8 -v 147866
 
 checknbshapes result -vertex 4 -edge 9 -wire 5 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 25
index 753c9a4..be687bd 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30092.2 -v 80775.2
+checkprops result -s 28294.2 -v 80775.2
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 3fe4fad..f7a122b 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 32179.2 -v 90680.2
+checkprops result -s 31041.8 -v 90680.2
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 57bc35f..daeffb2 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 32535.9 -v 103756
+checkprops result -s 30532.5 -v 103756
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index ba47b29..86146ed 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 34439.8 -v 112768
+checkprops result -s 33191 -v 112768
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 2d594df..a6e11a4 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 32493.7 -v 108899
+checkprops result -s 30670.1 -v 108899
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 3fff633..e4234ab 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 34206.6 -v 117501
+checkprops result -s 32766.2 -v 117501
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index 5d77b47..7bf7bf5 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -R -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 35327.9 -v 124779
+checkprops result -s 33884 -v 124779
 
 checknbshapes result -vertex 3 -edge 8 -wire 5 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 23
index 8dc2f2c..ae61cba 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 34072.6 -v 112329
+checkprops result -s 32485.2 -v 112329
 
 checknbshapes result -vertex 3 -edge 5 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 18
index dc5fd4e..d636007 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -R -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 38315.9 -v 147866
+checkprops result -s 36725.8 -v 147866
 
 checknbshapes result -vertex 4 -edge 9 -wire 5 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 25
index 56f4b76..97311a3 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30006.2 -v 80709.6
+checkprops result -s 28316.4 -v 80709.6
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 3fee63b..9938ccc 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30965.4 -v 84188.2
+checkprops result -s 29604.4 -v 84188.2
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index b70bd6c..dc215ee 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30073 -v 76901
+checkprops result -s 28233.3 -v 76901
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 05c13aa..f335082 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 31054.5 -v 80305.2
+checkprops result -s 29574.7 -v 80305.2
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 2ad3332..8396900 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 27815.3 -v 59871
+checkprops result -s 26124.2 -v 59871
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index a6d9175..42dff9b 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 27676 -v 59042
+checkprops result -s 25730.5 -v 59042
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 1345761..a2c84b3 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30041.6 -v 76900.9
+checkprops result -s 28191 -v 76900.9
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index eccd237..0775524 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29572.9 -v 74167.4
+checkprops result -s 27592.2 -v 74167.4
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 9aafc9f..371d4d6 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30006.2 -v 80709.6
+checkprops result -s 28316.4 -v 80709.6
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 53eda4e..9025aba 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30965.4 -v 84188.2
+checkprops result -s 29604.4 -v 84188.2
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index cb84d2c..a4febe8 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30073 -v 76901
+checkprops result -s 28233.3 -v 76901
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index 060e7c2..1ddd301 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 31054.5 -v 80305.2
+checkprops result -s 29574.7 -v 80305.2
 
 checknbshapes result -vertex 15 -edge 25 -wire 12 -face 12 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 66
index b7b76be..564c07a 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29030.2 -v 68648
+checkprops result -s 27397.8 -v 68648
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index a180356..5dd64bc 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30092 -v 72386.2
+checkprops result -s 28696.8 -v 72386.2
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 3fed5d9..322b409 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29331.9 -v 65400.7
+checkprops result -s 27552.3 -v 65400.7
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 72037f4..9be0441 100755 (executable)
@@ -25,6 +25,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30287 -v 69136.9
+checkprops result -s 28751 -v 69136.9
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index a8e5b14..48a220f 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 27417.2 -v 50977.6
+checkprops result -s 25784.5 -v 50977.6
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 3091ba4..bdb9192 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 28684.4 -v 55282.1
+checkprops result -s 27472.6 -v 55282.1
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 6b54e6f..d0eab06 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29343.7 -v 65439.6
+checkprops result -s 27557.6 -v 65439.6
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 78f1400..c4fa694 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30505.5 -v 69371.6
+checkprops result -s 29200.6 -v 69371.6
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 1081e26..1f6688a 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29030.2 -v 68648
+checkprops result -s 27397.8 -v 68648
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 4cd4763..e613400 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30092 -v 72386.2
+checkprops result -s 28696.8 -v 72386.2
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index 80dc1d1..5d4dd85 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 29331.9 -v 65400.7
+checkprops result -s 27552.3 -v 65400.7
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54
index ef36c23..ad8af50 100755 (executable)
@@ -26,6 +26,6 @@ if [catch { buildsweep result -S} res] {
   puts "Faulty OCC1477: buildsweep is wrong"
 }
 
-checkprops result -s 30287 -v 69136.9
+checkprops result -s 28751 -v 69136.9
 
 checknbshapes result -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 54