tests/blend/end

   1 if { [isdraw result] } {
   2     #check if result is valid
   3     puts [checkshape result]
   4
   5     clear
   6     smallview
   7     donly result
   8     fit
   9     xwd $imagedir/${test_image}.png
  10 } else {
  11     puts "Error : The blend cannot be built."
  12 }
  13
  14 # to end a test script
  15 puts "TEST COMPLETED"