0023371: Expression which check of change of square/volume/length in end files doesn...
authorski <ski@pencascade.com>
Mon, 20 Aug 2012 09:33:29 +0000 (13:33 +0400)
committerski <ski@pencascade.com>
Mon, 20 Aug 2012 09:33:29 +0000 (13:33 +0400)
Modified END files
Corrected tests cases due to modification of END files

16 files changed:
tests/blend/end
tests/blend/tolblend_buildvol/A3
tests/blend/tolblend_buildvol/A7
tests/boolean/bfuse_complex/P8
tests/boolean/bopfuse_simple/ZP6
tests/boolean/end
tests/draft/angle/F9
tests/draft/angle/L4
tests/draft/end
tests/feat/end
tests/feat/featprism/C4
tests/mkface/end
tests/nproject/end
tests/offset/end
tests/pipe/end
tests/thrusection/end

index 6413e60..16eadc7 100644 (file)
@@ -15,8 +15,8 @@ if { [isdraw result] } {
       puts "The expected square is $square"
    }
    #check of change of square is < 1%
-   if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
-      puts "Error : The square of reult shape is $m"
+   if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
+      puts "Error : The square of result shape is $m"
    }
    if { $m > 0 } {
       clear
index 959cc67..205d643 100644 (file)
@@ -1,4 +1,4 @@
-puts "TODO OCC22817 Mandriva2010: Error : The square of reult shape is"
+puts "TODO OCC22817 Mandriva2010: Error : The square of result shape is"
 
 #########################
 #      bug sewing       #
index 39feb2b..d86ebcb 100644 (file)
@@ -1,4 +1,4 @@
-puts "TODO OCC22817 Mandriva2010: Error : The square of reult shape is"
+puts "TODO OCC22817 Mandriva2010: Error : The square of result shape is"
 
 #########################
 #      bug sewing       #
index a8f130e..10c15c3 100644 (file)
@@ -1,6 +1,6 @@
 ## cts21139
 puts "TODO #22911 ALL: Faulty shapes in variables faulty_1 to faulty_"
-
+puts "TODO OCC22911 ALL: Error : The square of result shape is"
 restore [locate_data_file shape.brep] a
 restore [locate_data_file tool_1.brep] b
 
index 6916796..603c5ac 100644 (file)
@@ -14,6 +14,16 @@ if {[string compare $os "Debian50-64"] != 0 && [string compare $os "Debian60-64"
   puts "TODO ${inst}#22911 ${os}: Faulty shapes in variables faulty_1 to faulty_"
 }
 
+if {  [string compare $os "CentOS55-64"] == 0
+  ||  [string compare $os "Debian40"] == 0 
+  ||  [string compare $os "Debian40-64"] == 0
+  ||  [string compare $os "Mandriva2008"] == 0
+  ||  [string compare $os "Mandriva2008-64"] == 0
+  ||  [string compare $os "SL51-64"] == 0
+} {
+  puts "TODO OCC22911 $os: Error : The square of result shape is"
+}
+
 ptorus a0 100 20
 tcopy a0 a1
 tcopy a0 a2
index 225d07d..0ff1bc8 100755 (executable)
@@ -28,7 +28,7 @@ if { [isdraw result] } {
         puts "The expected $prop is $mass"
       }
       #check of change of square is < 1%
-      if { ($mass != 0 && [expr abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+      if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
         puts "Error : The $prop of result shape is $m"
       }
       
index c228188..a5e2b39 100644 (file)
@@ -1,6 +1,6 @@
 #E3----------------------------------------------
 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_2"
-puts "TODO OCC22803 All:Error : The square of reult shape is"
+puts "TODO OCC22803 All:Error : The square of result shape is"
 
 ptorus pt 25 24 90
 plane p 20 20 10 0 0 1
index 515a3a5..c441197 100644 (file)
@@ -2,6 +2,7 @@
 # Date : 23 Nov 98
 
 puts "TODO OCC22803 All:Faulty shapes in variables faulty_1 to faulty_2"
+puts "TODO ?OCC22803 ALL: Error : The square of result shape is"
 
 restore [locate_data_file cts20194_base.brep] base
 
index 37b8817..2289e93 100755 (executable)
@@ -12,8 +12,8 @@ if { [isdraw result] } {
       puts "The expected square is $square"
    }
    #check of change of square is < 1%
-   if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
-      puts "Error : The square of reult shape is $m"
+   if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
+      puts "Error : The square of result shape is $m"
    }
    if { [string compare $ch "This shape seems to be valid"] == 0 } {
       #check if tolerance is less 1.
index 56f3607..683fcad 100755 (executable)
@@ -16,8 +16,8 @@ if { [isdraw result] } {
       puts "The expected square is $square"
    }
    #check of change of square is < 1%
-   if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
-      puts "Error : The square of reult shape is $m"
+   if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
+      puts "Error : The square of result shape is $m"
    }
    if { $m > 0 } {
       clear
index 999edc1..0b500a7 100644 (file)
@@ -6,7 +6,7 @@ nexplode cyl F
 puts "*"
 #puts "TODO OCC22810 All:Faulty .*"
 puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3"
-puts "TODO OCC22810 ALL:Error : The square of reult shape is"
+puts "TODO OCC22810 ALL:Error : The square of result shape is"
 ttranslate cont 0 0 -100
 
 #
index 0406ba0..1b9c663 100755 (executable)
@@ -11,7 +11,7 @@ if { [isdraw result] } {
    regexp { *VERTEX +: +MAX=([-0-9.+eE]+)} $tolerance full maxv 
 
    if { [info exists MaxFTol ] } {
-      if { $MaxFTol != 0 && $maxf > $MaxFTol && [expr abs($MaxFTol - $maxf)/$MaxFTol] > 0.01 } {
+      if { $MaxFTol != 0 && $maxf > $MaxFTol && [expr 1.*abs($MaxFTol - $maxf)/$MaxFTol] > 0.01 } {
          puts "Error : Result shape is WRONG. MAX tolerance of FACE should be equal $MaxFTol instead of $maxf"
       } elseif { $MaxFTol == 0 && $maxf != 0 } {
          puts "Error : Result shape is WRONG."
@@ -21,7 +21,7 @@ if { [isdraw result] } {
    } 
 
    if { [info exists MaxETol ] } {
-      if { $MaxETol != 0 && $maxe > $MaxETol && [expr abs($MaxETol - $maxe)/$MaxETol] > 0.01 } {
+      if { $MaxETol != 0 && $maxe > $MaxETol && [expr 1.*abs($MaxETol - $maxe)/$MaxETol] > 0.01 } {
          puts "Error : Result shape is WRONG. MAX tolerance of EDGE should be equal $MaxETol instead of $maxe"
       } elseif { $MaxETol == 0 && $maxe != 0 } {
          puts "Error : Result shape is WRONG."
@@ -31,7 +31,7 @@ if { [isdraw result] } {
    } 
 
    if { [info exists MaxVTol ] } {
-      if { $MaxVTol != 0 && $maxv > $MaxVTol && [expr abs($MaxVTol - $maxv)/$MaxVTol] > 0.01 } {
+      if { $MaxVTol != 0 && $maxv > $MaxVTol && [expr 1.*abs($MaxVTol - $maxv)/$MaxVTol] > 0.01 } {
          puts "Error : Result shape is WRONG. MAX tolerance of VERTEX should be equal $MaxVTol instead of $maxv"
       } elseif { $MaxVTol == 0 && $maxv != 0 } {
          puts "Error : Result shape is WRONG."
index d679d0a..092dc38 100755 (executable)
@@ -16,7 +16,7 @@ if { [isdraw result] } {
         puts "The expected $prop is $mass"
       }
       #check of change of length is < 1%
-      if { ($mass != 0 && [expr abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+      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 {
index e954c54..476f2f1 100644 (file)
@@ -64,7 +64,7 @@ if { [isdraw result] && $mist == 0} {
        if { [string compare $length "empty"] != 0 } {
            puts "The expected length is $length"
            #check of change of length is < 1%
-           if { ($length != 0 && [expr abs($length - $m)/$length] > 0.01) || ($length == 0 && $m != 0) } {
+           if { ($length != 0 && [expr 1.*abs($length - $m)/$length] > 0.01) || ($length == 0 && $m != 0) } {
                puts "Error : The length of result shape is $m"
            }
        } else {
@@ -128,7 +128,7 @@ if { [isdraw result] && $mist == 0} {
            puts "The expected volume is $volume"
        }
        #check of change of volume is < 1%
-       if { ($volume > 0 && [expr abs($volume - $m)/$volume] > 0.01) || ($volume == 0 && $m != 0 && $sm != $m) } {
+       if { ($volume > 0 && [expr 1.*abs($volume - $m)/$volume] > 0.01) || ($volume == 0 && $m != 0 && $sm != $m) } {
            puts "Error : The volume of result shape is $m"
        }
     }
index 93e650b..6695c56 100644 (file)
@@ -11,7 +11,7 @@ if { [isdraw result] } {
       puts "The expected square is $square"
    }
    #check of change of square is < 1%
-   if { ($square != 0 && [expr abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
+   if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
       puts "Error : The square of result shape is $m"
    }
    if { $m > 0 } {
index b236902..143e18c 100755 (executable)
@@ -15,7 +15,7 @@ if { [isdraw result] } {
         puts "The expected $prop is $mass"
       }
       #check of change of square is < 1%
-      if { ($mass != 0 && [expr abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
+      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 {