tests/offset/end

   1
   2 if { [isdraw result] } {
   3    regexp {Mass +: +([-0-9.+eE]+)} [vprops s] full sm
   4    regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full m
   5
   6    #check if result is valid
   7    puts [checkshape result]
   8    if { $m == 0 || $sm == $m } {
   9        puts "Error : The offset is not valid. The volume is $m."
  10    }
  11
  12    #check of face's square value
  13    foreach ResultFace [ explode result f ]  {
  14       regexp {Mass +: +([-0-9.+eE]+)} [sprops $ResultFace] full fmass
  15       if { $fmass < 0 } {
  16          puts "Error : Square of face $ResultFace of result shape is negative."
  17       }
  18    }
  19    #check for bsection
  20    if { [info exists GlobFaces] && [llength $GlobFaces] == 0 } {
  21       puts [ bsection re $result $s ]
  22       if { [ isdraw re ] } {
  23          regexp {Mass +: +([-0-9.+eE]+)} [lprops $re] full remass
  24          if { $remass != 0 } {
  25             puts "Error: bsection of result and s is not equal zero."
  26          }
  27       }
  28    }
  29
  30    if { $volume > 0 } {
  31       puts "The expected volume is $volume"
  32    }
  33    #check of change of volume is < 1%
  34    if { ($volume > 0 && [expr abs($volume - $m)/$volume] > 0.01) || ($volume == 0 && $m != 0 && $sm != $m) } {
  35       puts "Error : The volume of result shape is $m"
  36    }
  37    if { $m > 0 } {
  38       clear
  39       smallview
  40       donly result
  41       fit
  42       xwd $imagedir/${test_image}.gif
  43    }
  44 } else {
  45    puts "Error : The offset can not be build."
  46 }
  47
  48 # to end a test script
  49 puts "TEST COMPLETED"