occt/tests/pipe/end

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 square is 0."
   }

   if { $square > 0 } {
      puts "The expected square 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 square of result shape is $m"
   }
   if { $m > 0 } {
      clear
      smallview
      donly result
      fit
      xwd $imagedir/${test_image}.gif
   } 
} else {
   puts "Error : The pipe can not be build."
}

# to end a test script
puts "TEST COMPLETED"