Added subgroup Specific in group Pipe (chl 930-932). Small correction in boolean...

[occt.git] / tests / pipe / end

diff --git a/tests/pipe/end b/tests/pipe/end
deleted file mode 100644 (file)
index 2eb8fa6..0000000
--- a/tests/pipe/end
+++ /dev/null
@@ -1,29 +0,0 @@
-if { [isdraw result] } {
-   regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
-
-   #check if result is valid
-   puts [checkshape result]
-   if { $m == 0 } {
-      puts "Error: The pipe is invalid. The area is 0."
-   }
-
-   if { $square > 0 } {
-      puts "The expected area is $square"
-   }
-   #check of change of square is < 1%
-   if { ($square != 0 && [expr 1.*abs($square - $m)/$square] > 0.01) || ($square == 0 && $m != 0) } {
-      puts "Error : The area of the resulting shape is $m"
-   }
-   if { $m > 0 } {
-      clear
-      smallview
-      donly result
-      fit
-      xwd $imagedir/${test_image}.png
-   } 
-} else {
-   puts "Error : The pipe cannot be built."
-}
-
-# to end a test script
-puts "TEST COMPLETED"