occt/tests/draft/end

if { [isdraw result] } {
   regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m

   #check if result is valid
   set ch [checkshape result]
   puts $ch
   if { $m == 0 } {
       puts "Error : The skin is not valid. 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 { [string compare $ch "This shape seems to be valid"] == 0 } {
      #check if tolerance is less 1.
      set tol 10.
      if { [regexp {Face +:.+Max +([-0-9.+eE]+)} [maxtolerance result] full tol]  == 0 } {
         #Avoiding maxtolerance bug on Windows
         if { [array get Draw_Groups "Shape Healing"] == "" } {
            pload XSDRAW
         }
         regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result] full tol
      }
      if { $tol > 1. } {
         puts "Error: The tolerance of the resulting shape is too big ($tol)."
      }
   }

   if { $m > 0 } {
      clear
      smallview
      donly result
      fit
      xwd $imagedir/${test_image}.png
   }
} else {
   puts "Error : The skin cannot be built."
}

# to end a test script
puts "TEST COMPLETED"